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The purpose of this publication is to 
enable the reader to locate specific areas 
of the utility programs provided for the 
IBM System/360 Operating System, and to 
relate those areas to the corresponding 
program listings. 


The publication is divided into three 
major sections, corresponding to the three 
major types of utility programs: system 
utilities, data set utilities, and inde- 
pendent utilities. Each section contains 
descriptions of the programs of the corre- 
sponding type; these descriptions consist 
of text, flowcharts, and figures showing 
record and table formats. 


The introduction provides a brief 
description of each utility program, and an 
appendix lists the modules of the utility 
programs. 


To use this publication effectively, the 
reader should have an understanding of the 
material in the following publications: 
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IBM System/360 Operating System provides 
the user with utility programs that perform 
basic operations. These programs are 
grouped in three categories: system utili- 
ties, data set utilities, and independent 
utilities. 


System utilities are executed under the 
operating system; these programs treat data 
associated with the structure of the opera- 
ting system. They are: 


e IEHPROGM, a program that modifies con- 
trol data contained in catalog and 
volume structures. 


e IEHMCVE, a program that duplicates 
collections of data sets to produce 
extra copies or rearrange existing 
ones. 


e IEHLIST, a program that lists a catalog 
(or a portion thereof), a volume table 
of contents, and the directory of a 
partitioned data set. 


e IEHIOSUP, a program that updates the 
Transfer Control (XCTL) tables embedded 
within load modules and access executor 
modules for the I/O support functions 
OPEN, CLCSE, and EOV. 


e IFCDIP00, a program that writes the 
SYS1.LCGREC data set in initialized 
format. 


e IFCEREPO, a program that edits and 
prints environmental records from 
SYS1 .LOGREC. 


e IEHUCSLD, a program that loads the 2821 
generator storage with user-supplied 
character images. 


e IEHINITT, a program that creates volume 
labels on magnetic tape. 


e IEHDASDR, a program that dumps, 
restores, and initializes direct access 
volumes. 


Data set utilities are executed under 
the operating system and perform operations 
on data sets at the logical record level. 
They are: 
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e IEBCOPY, a program that copies all ora 
specified portion of a partitioned data 
set. 


e IEBCOMPR, a program that compares two 
data sets at the logical record level. 


e IEBGENER, a program that copies or con- 
verts a sequential data set to a parti- 
tioned data set. 


e IEBPTIPOH, a program that prints or 
punches all or selected portions of a 
sequential data set, a partitioned data 
set, or specified members of a parti- 
tioned data set. 


e IEBISAM, a program that copies, 
unloads, loads and prints indexed 
Sequential data sets. 


e IEBUPDAT, a program that modifies the 
symbolic library. 


e IEBUPDTE, a program that incorporates 
source language modifications into 
sequential and partitioned data sets. 


e IEBEDIT, a program that produces an 
edited input job stream data set froma 
master input job stream data set. 


e IEBDG, a program that produces test 
data sets for use in program debugging 
procedures. 


Independent utilities are executed out- 
side and in support of IBM System/360 Oper- 
ating System. They are: 


e IBCDASDI, a program that initializes 
and assigns alternate tracks on direct 
access volumes. 


e IBCDMPRS, a program that dumps and 
restores the data contents of a direct 
access volume. 


e IBCRCVRP, a program that recovers data 
from a track on direct access storage, 
replaces defective records with data 
supplied by the user, and writes the 
composite data on an operative track of 
the original volume. 
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System Utility Programs 


System utility programs are executed under 
the operating system in the problem rrogram 
mode. These utilities treat data asso- 
ciated with the structure of the operating 
system. They are: 


e IEHPROGM, a program that modifies con- 
trol data in volume and catalog 
structures. 

e IEHMCVE, a program that duplicates 
collections of data sets to provide 
kackup copies or to rearrange existing 
ones. 

e IEHLIST, a program that lists the cata- 
log or a portion thereof, a volume 
table contents, and the directories of 
partitioned data sets. 

e IEHIOSUP, a program that updates the 
transfer control (XCTL) tables con- 
tained within the I/O support routines 
OPEN, CLCSE, and EOV. 

e IFCDIPO00O, a program that writes the 
SYS1.LCGREC data set in initialized 
format. 

e IFCEREPO, a program that edits and 
prints environmental records from 
SYS1 .LCGREC. 

e IEHUCSLD, a program that loads the 2821 
generator storage with user-supplied 
character images. 

e IEHINITT, a program that creates volume 
labels on magnetic tape. 

e IEHDASDR, a program that dumps, 
restores, and initializes direct access 
volumes. 


The system utility programs IEHPROGM, 
IEHMOVE, IEHLIST, IEHIOSUP, IEHUCSLD, and 
IEHINITT use the queued sequential access 
method (CSAM) to read and write the SYSIN 
and/or SYSPRINT data sets or their (user- 
designated) equivalents. For these pro- 
grams, SYSIN and SYSPRINT data sets also 
May have a blocking factor that is other 
than one. 


AUXILIARY PARAMETERS 


IEHPROGM, IEHMOVE, IEHLIST, IEHIOSUP, 
IEHUCSLD, IEHINITT, and IEHDASDR may be 
invoked by a problem program. In this 
case, the calling program provides the u- 
tility program with certain auxiliary pa- 
rameters in main storage, as shown in 
Figure 1. If the utility program is 
invoked ky job scheduler, only the pointer 
to the EXEC statement parameters is 
present. 
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DEVICE ALLOCATION AND VOLUME MOUNTING 
(IEHMVSSF AND IEHMVXSF) 


IEHPROGM, IEHMOVE, and IEHLIST require that 
volumes be mounted dynamically. However, 
the serial numbers and device types of 
these volumes are not necessarily known to 
the user at the time the job is submitted. 
For example, in moving a group of data 
sets, the names of individual data sets in 
the group and their corresponding volume 
information are not known to the IEHMOVE 
program until it scans the catalog for the 
information. Once this information is 
known, data control blocks may be con- 
structed within the program itself contain- 
ing ddnames associated with units on which 
the appropriate volumes may be mounted, 
using the OPEN (type=J) routine. 


In order to ensure that necessary 
volumes are mounted or mountable, two rou- 
tines reside on LINKLIB: 


e IEHMVSSF, which is used by IEHPRCGM and 
IEHLIST. 
e IEHMVXSF, which is used by IEHMOVE. 


Each contains the control section 
IFHVOLMT. The difference between the two 
routines is that linkage to the first is 
via branch-and-link, whereas linkage to the 
second is via transfer control (XCTL). 


The logical flow of IEHVOLMT is shown in 
Chart 01. Figures 2 and 3 show the format 
of data supplied to IEHVCLMT by the calling 
routine. Figure 4 shows the format of an 
internal table maintained by IEHVCLMT in 
allocated main storage; the internal table 
is built once for each execution of IEHMOVE 
and IEHLISTI, and once for each time 
IEHPROGM gives control to the volume 
mounter. 


For each volume mounting request, 
IEHVOLMT returns to the calling routine a 
pointer to a ddname associated with a unit 
on which the desired volume may be mounted. 
The daname is inserted into a field of the 
DCB and the desired volume is mounted by 
the open routine (type J). Actual mounting 
is accomplished by either IEHVOLMT or the 
calling routine, as indicated by Field 3 of 
the internal table header (Figure 2). 


The essential processing in IEHVOLMT 
lies in the comparison of two masks: the 
first is obtained from the device mask 
table, using the device type supplied by 
the calling routine; the second is con- 
structed by IEHVOLMT, using the UCEs allo- 


cil 


2 


cated to the current task.1 In each mask, 
each bit represents a unit: in the first 
mask, an “on® condition means that the unit 
will accept the device type under consi- 
deration; in the second, an “on" condition 


4The UCBs are found as follows: location 
16 in main storage points to the communica- 
tions vector table, which in turn contains 
a pointer to a list of UCB pointers. The 
task I/O table (TIOT) is then used to dis- 
tinguish the appropriate UCBs. 
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Auxiliary Parameter Format for IEHPROGM, IEHMOVE, IEHLIST, IEHIOSUP, 
and IEHDASDR 


means that the unit has been allocated to 
the current task. When both conditions 
occur for a given unit, IEHVOLMT checks to 
see if the desired volume is already 
mounted; if it is, an indication to that 
effect is returned. If the volume is not 
already mounted, the ddname associated with 
that unit (as found in the TIOT) can be 
used by the open routine (type J) to mount 
the desired volume on the allocated unit. 
As explained earlier, the open routine may 
be invoked by either IEHVOLMT or the cal- 
ling routine. 
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Figure 2. Internal Table Header 


| Loewe 5-byte unit name if 
| specified. 

{ Otherwise, field 
| is all zeros 

| 


L_-____—-—~-~~—~—-~— 2-byte relative 
pointer to 
internal table 
entry. 
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*Figure 3. Volume Mounting Request 
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Indicator Settings: Field 3 of the intern- 
al table header (Figure 2) may have the 
following settings: 


Bit Value Meaning 
0 0 No mounting is to be done. 
1 Mounting is to be done. 
1 0 No dismounting. 

1 Volume mounting requests having 
the high-order bit of the rela- 
tive table address set to 1 are 
to be dismounted (the units 
made available). 

2 0 Ignore old requests (ignore 
usage code, Figure 4). 
1 Old requests are valid. 
3 0 Build internal table. 
1 Internal table is already 
built. 
4 Unused. 
5 Unused. 
6-7 01 All volume mounting requests 
accomplished. 
10 No volume mounting requests 
accomplished. 
11 Some volume mounting requests 
accomplished: those volume 


mounting requests having a 
relative table address of zero 
were not accomplished. 


CONTROL CARD SCANNER (RDCDRT) 


IEHMOVE and IEHLIST contain copies of a 
control card scan routine, RDCDRT. Each 
call to RDCDRT results in the return of the 
item scanned, together with an indication 
of the type (operation, keyword, or parame- 
ter). In IEHMOVE, the routine has the load 
module name IEHMVESJ; in IEHLIST, it has 
the name RDCDRT. 


This routine reads control cards (using 
QSAM), checks syntax, and returns to the 
calling routine a command word, a keyword, 
or a parameter. 


The calling routine supplies a 192-byte 
work area (on a fullword boundary) followed 
by the DCB for the control card data set. 


The calling routine must open this data 
set. The control card routine inserts the 
address of the end-of-file routine KFCF in 
the DCB. 


The calling sequence for RDCDRT is as 
fcllows: 


e Register 13 points to the first byte of 
the work area. 


e Register 14 points to the return 
address in the calling routine. 


e Register 15 points to the entry point 


RDCDRT. 
<------2 bytes------ > <------ 2 bytes-—---~- > 
rete ee eos ee a 1 
| internal | displacement | 
| table length | to mask | 
{-—--—--—— Pana a ona h = { 
| usage | pointer to ddname j 
| code | | 
|--------- fen nn : 
| usage | pointer to ddname | 
|} code | . | 
|--------- }------------------------------- { 
;——-----—— fom nnn nnn nnn nn { 
| usage | pointer to ddname | 
| code | | 
[--------- 4_-----~~~---------------------- : 


| mask length+ | 


|*Device mask length, in bytes, is equal | 

jto the number of UCB pointers in the UCB | 

| pointer table. { 

a a a gt ee 4 

Figure 4. Internal Table Maintained by 
IEHVOLMT 


Upon returning control to the calling 
routine, the control card routine returns 
the following information: 


e Register 1 points to the starting 
address of the item scanned. 


e Register 2 contains the length of the 
item scanned. 


e The first byte of the 192-byte work 


area is labeled SWITCHRD; its bits have 
the following meanings when set to 1: 
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td 
ps 
ctr 


Meaning 


Syntax error 

Bypass switch 
End-of-file 

Initial entry 
Command word 
Keyword 

Parameter 

Parameter or keyword 
delimited by a right 
parenthesis. 


SHU EWN OS | 


The control card routine contains the 


following subroutines: 


RDCARD 
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resets switches and saves registers 
3-14. 


KGTCD 


reads a card into the work area, using 
QSAM. 


KTRT 


saves the “start" address of the scan, 
and scans for a delimiter. 


KPPARQ 
stores the address and length (of the 
item scanned) in registers 1 and 2. 


KiNVAL 


is entered when an invalid delimiter 
is found. 


Chart 01. IEHVOLMT - Volume Mounting Logic 
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Modifying System Control Data 
IEHPROGM 


The IEHPROGM program is a convenient inter- 
face between the user and data management 
routines which modify volume and catalog 
structures. By means of utility control 
statements, the user may request the 
IEHPROGM program to: 


e Scratch, rename, catalog, or uncatalog 
a data set. 


e Scratch or rename a PDS member. 


e Scratch a data set assigned by the op- 
erating system. 


e Build or delete an index level, index 
alias, or generation data group. 


e® Connect or release a control volume. 


The general design of the program is 
shown in Figure 5. For each request listed 
above, the program issues one or more 
supervisor calls (SVCs) for data management 
routines which perform the requested ser- 
vice; the I[EHPROGM program interfaces with 
these routines by building parameter lists 
for them, invoking them, and analyzing 
their returns. 


Following the return from a data manage- 
ment routine, further processing by the 
IEHPROGM program may include additional 
calls to data management routines, as in 
the case, for instance, of supplying the 
catalog with index levels needed to catalog 
a data set by its specified, fully- 
qualified name. 


PROGRAM STRUCTURE 


The program consists of seven load modules 
and a dynamically allocated work area: 


e The Root resides in main storage 
throughout the program's execution. It 
contains V-type address constants 
needed by the overlay supervisor. 


e The Parameter List Builder initializes 
the program, obtains and analyzes 
requests, and builds a parameter list 
for the appropriate data management 
routine. 


e The Volume Mounter ensures that all 
volumes needed to service the request 
are mounted or mountable. 


e The SVC Return Analyzer issues the 
appropriate SVC and analyzes its 


return. In some instances, additional 
SvCs may be issued by this module. 
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ENTRY 


Get a request; 
set up a major 
routing table to 

handle the request 


Build a parameter 
list by decoding 
the routing 

table 


Issue SVC to 
data managemen 
routine, and pass 
parameter 
list 


Analyze the return 
from data manage- 
ment and prepare 
to issue another 
SVC if necessary 


Is 
there another 
request 


No 


RETURN 


The General Design of the 
IEHPROGM Program 


Figure 5. 


e The Auxiliary Parameter Analyzer ana- 
lyzes auxiliary parameters supplied to 
the IEHPROGM program by a calling pro- 
gram, and also opens SYSIN and 
SYSPRINT. 


e The Message Writer writes all diagnos- 
tic messages and operator instructions 
issued by the program. 


e The Volume Look-up obtains volume 
information from the device name table 
when the keyword parameter VOL occurs 
in a request. 


e The Work Area is obtained dynamically 
by the Parameter List Builder. 


The overlay structure of the program is 
shown in Figure 6; each block represents a 
control section (CSECT). 


The structural flow of the program is 
shown in Figure 7. The Auxiliary Parameter 
Analyzer, Message Writer, and Volume Lookup 
are subordinate load modules; the others 
are control load modules. 
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The Structural Flow of IEHPROGM 
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The Overlay Structure of the IEHPROGM Program (Each block represents one con- 


The linkage procedure used to execute a 
subordinate load module and shown in 


Figure 8 is as follows: 


1. Module A loads the address (coded as a 
V-type address constant) of an entry 
point, B1, to module B in register 15; 
A branch-and-link instruction is then 
issued by module A, resulting in the 


following action: 


a. The address of the next sequential 
instruction is loaded into 


register 14, and 


b. A branch is made to the overlay 


supervisor. 


2. The overlay supervisor then causes 
module B to be loaded and gives con- 


trol to entry point Bil. 


The return 


address in register 14 is now meaning- 


less, 
module A. 


since module B has overlaid 


3. Module B returns control (indirectly) 
to module A by loading the address of 
an entry point to module A in register 
15 and branching to it, resulting ina 
branch to the overlay supervisor. 


4. The overlay supervisor then causes 
module A to be loaded and gives con- 


trol to entry point Al. 


Since module 


A has now overlaid module B, the 
return address in register 14 is 


re-established. 


5. The instruction at entry point Al 
gives control to the instruction at 


the return address. 
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Figure 8. Linkage Procedure Used by the 
IEHPROGM Program to Invoke a 


Subordinate Load Module 


CONTROL LOAD MODULES 


The Root, the Parameter List Builder, the 
Volume Mounter, and the SVC Return Analyzer 
are control load modules. 


The Root (IEHEBASE) 


The Root consists of one CSECT, IEHEBASE. 
It contains V-type address constants needed 
by the overlay supervisor, and a branch 
instruction to the Parameter List Builder. 


The Parameter List Builder (IEHEUP1, 
IEHEDC1, IEHEDC2 ) 


The Parameter List Builder contains three 
CSECTS: IEHEUP1, IEHEDC1, and IEHEDC2. 


IEHEUP1 
builds the parameter list for the ini- 
tial SVC to the appropriate data man- 
agement routine. It contains seven 
routines: COMMENCE, IEHRESET, FNDE- 
CODE, FDLD, KODECODE, IEHESCAN, and 
IEHETLU. The parameter list (Figure 
11) is built at location IEHEMAC1 in 
the work area. 


COMMENCE 
initializes the program by estab- 
lishing addressability and obtaining 
a work area of 4416 bytes in main 
storage. 


IEHRESET 
initializes for a new request by 
resetting switches. 


FNDECODE 
determines the operation (e.g. 
SCRATCH) requested, and stores the 
address of its routing table at 
location FINUSE in the work area. 
The use and format of the routing 
tables are discussed under “Program 
Flow." 
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FDLD 
decodes the routing table in use. 
Each routing table indicates a 
sequence of operations to be per- 
formed; FDLD effects these opera- 
tions by decoding the routing table. 


KODECODE 
causes keyword parameters to be 
scanned from a utility control 
statement, and successively directs 
control to subroutines which move 
parameter data to the parameter list 
for the data management SVC. The 
list is at location IEHMAC1 in the 
work area. 


IEHESCAN 
scans a control statement for an 
operation or an operand. 


IEHETLU 

performs a table look-up for the 
address of a routine or a routing 
table: if the search argument used 
is an operation, a routing table 
address is retrieved; if the search 
argument used is an operand, a rou- 
tine address is retrieved. 


ITEHEDC1 


contains seven tables: TABLEN3, 
TABLENS, TABLEN5, TABLEN6, TABLEN7, 
CATALOG, and UNCATIG. 


Each of the tables TABLENn consists 
of a variable number of entries: the 
first n bytes of each entry is an 
operation or keyword operand, and the 
last four bytes of each entry is the 
address of a routing table (for an 
operation) or a routine (for a keyword 
operand). As an example, TABLEN6 con- 
tains as typical entries 


C "RENAME * 
C "DSNAME ‘ 


AL4 (RENAME) 
AL4 (DSNAME) 


where RENAME is the symbolic location 
of the RENAME routing table, and 
DSNAME is the symbolic location of the 
routine given control when the data 
set name is scanned. 


The tables CATALOG and UNCATLG are 
major routing tables for the catalog 
and uncatalog operations. 


IEdEDC 2 


contains the major routing tables 
DELETEX, CONNECT, RELEASE, BUILDA, 
DELETEA, SCRATCH, BLDX, and RENAME. 
The use and format of all routing 
tables are discussed under “Program 
Flow." 


The Volume Mounter (IEHMOUNT, IEHVOLMT, 
DEVMASKT) 


This segment ensures that all volumes 
needed by the data management routine are 
mounted or mountable. Three CSECTs are 
present: IEHMOUNT, IEHVOLMT, and DEVMASKT. 


TEHMOUNT, 
is entered from IEHEUP1 when the pa- 
rameter list for the initial data man- 
agement SVC has been built. IEHMOUNT 
then calls IEHVOLMT, if necessary, to 
ensure that a needed volume is already 
mounted or is mountable. IEHVOLMT is 
called in the following cases: 


1. For a SCRATCH or RENAME request, 
the volume ID from the control 
statement is passed to IEHVOLMT, 
together with an indication that 
the volume is not to be mounted. 
(The scratch and rename data man- 
agement routines themselves per- 
form volume mounting.) The call 
to IEHVOLMT serves as a check 
that the volume is mountable. 


2. For any other request, if CVOL is 
specified, IEHVOLMT is passed the 
volume ID, together with an indi- 
cation that the volume is to be 
mounted. IEHVOLMT is not called 
otherwise. 


For cases (1) and (2) above, 
IEHVOLMT normally returns a pointer to 
a ddname associated with a channel- 
unit on which the volume is mounted or 
can be mounted. IEHMOUNT then inserts 
the ddname into the data control block 
(DCB) needed to perform I/O operations 
on the volume. Control is then given 
to IEHEUPIA. 


If the volume is not mountable, as 
indicated by the return from IEHVOLMT, 
IEHMOUNT aborts the request, giving 
control to IEHEUP1 to honor the next 
request. 


IEHVCLMT and DEVMASKT are discussed under 
the heading “Volume Mounting and Device 
Allocation." 


The SVC Return Analyzer (TEHEUP1A) 


This segment issues, and analyzes the 
returns of, all data management SVCs used 
by IEHPROGM to perform a requested opera- 
tion. The SVC Return Analyzer segment con- 
sists of a single control section, IEHEUP- 
1A, which contains ten routines: LATAB, 
FDLD, OPENVTCC, GETADSCB, SVCRET, SVC26RET, 
INDEX8, NEEDINDX, SCANIT, and VTOCRET. 


LATAB 
stores the address of the routing 
table in use at location FINUSE in the 
work area. 


FDLD 
decodes the routing table, directing 
control to the routines indicated by 
the table. (This is the same FDLD 
present in IEHEUP1, the Parameter List 
Builder.) 


OPENVTOC 
constructs a DCB for the VTOC to be 
opened for a Scratch VTCC request, and 
then opens the VTCC. 


GETADSCB 
reads the VTOC and scratches the fol- 
lowing DSCBs for a Scratch VTCC 
request: 

1. If the SYS keyword was specified, 
each system-assigned data set (a 
data set having a name beginning 
either with the 36 characters 
AAAAAAAA .AAAAAAAA.AAAAAAAA. or 
with the characters SYSnnnnn.T 
and containing one of the charac- 
ters P,F, or V in the nineteenth 
position) is scratched. (Note: 
Each character n represents a 
digit from 0 to 9.) 

2. If the SYS keyword was not speci- 
fied, each Format 1 DSCB is 
scratched. 

The VIOC is closed when an EOF is 
detected in reading it. 


SVCRET 
interprets the returns from the 
scratch (SVC 29) and rename (SVC 30) 
routines. The return is used as an 
indexing factor on the branch table 
BRANTAB, giving control to an appro- 
priate diagnostic routine. 


SVC 26RET 
interprets returns from the catalog 
and index (SVC 26) routines. SVC26RET 
uses BRANTAB in the same manner as 
SVCRET; the difference between the two 
routines is that SVC26RET also inter- 
prets the return from the locate rou- 
tine (locate is used by both catalog 
and index). 


INDEX8 
gives control to SVC26RET to interpret 
an error return from the Locate 
routine. 


NEEDINDX 
is entered the first time SVC26RET 
detects tnat an index level supplied 
in a utility control statement was not 
found in the catalog. NEEDINDX passes 
the index name to SCANIT. 
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SCANIT 
constructs a parameter list for an SVC 
to the index routine each time a 
return shows that an index level was 
absent. 


VTOCRET 
effects the writing of diagnostic mes- 
sages following a return from the 
scratch routine on a SCRATCH VTOC 
request. 


SUBORDINATE LOAD MODULES 


The subordinate load modules of the program 
are the Auxiliary Parameter Analyzer, the 
Message Writer, and the Volume Look-up. 


The Auxiliary Parameter Analyzer (ITEHINVOC) 


The Auxiliary Parameter Analyzer (IEHINVOC) 
analyzes any auxiliary parameters passed to 
the IEHPROGM program by a calling program 
and moves the DCBs for the data sets SYSIN 
and SYSPRINT (or their substitutes) to the 
work area and opens them. 


The Message Writer (IEHEMSGX) 


The Message Writer (IEHEMSGX) writes all 
messages issued by the program. Messages 
are written on the SYSPRINT data set unless 
a calling program specifies otherwise; con- 
sole messages are written using the job 
Management WTC routine. 


Input to the message writer consists of 
a full word in register 0: 


Byte 0 is unused. 

Byte 1 Bits 0-5 are unused. 
Bit 6 is set to one if the message 
to be written is to be placed at 
the next available location in the 
output buffer; otherwise it is set 
to zero. 
Bit 7 is set to zero if the mes- 
sage is to be written during the 
current execution of the message 
writer, and to one otherwise. 

Byte 2 contains the relative position in 
the buffer of the message. 

Byte 3 contains the message number. 


Volume Look-up (IEHDTTLU, DEVNAMET) 
This segment obtains volume information for 


use by IEHVOLMT and data management. It is 
called only when information specified by 
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tne VOL keyword is encountered by IEHESCAN. 
Ine segment consists of two CSECTs: IEHDT- 
ILU, a table look-up, and DEVNAMET, the 
device name table maintained at the instal- 
lation. At the time IEHDTTLU is entered, 
register 2 points to a 28-byte field in the 
work area consisting of the following 
suofields: 


1. (Bytes 0-7) contain the value supplied 
to the keyword operand VCL (left- 
justitied and padded with blanks), as 
scanned from a utility control 
statement. 


2. (Bytes 8-11) are initially blank. 


3. (Bytes 12-15) contain the return 
address (coded as a V-type address 
constant). 


4. (bytes 16-27) are initially blank. 


IEHDTTLU then stores registers 3-5 in 
supfield 4, and performs a table look-up in 
DEVNAMET, using subfield 1 as a search 
argument. The table value of the argument 
is moved to subfield 2, and control is 
returned to the location specified by sub- 
field 3. 


Subfield 2, the table value of the 
search argument, is of the following 
format: 


Byte 8 contains a bit configuration used 
by the I/O Supervisor. 

Byte 9 contains a device option code. 

Byte 10 contains a device class code. 

Byte 11 contains a device type code. 


PROGRAM FLOW 


The logical flow of the program proceeds 
in three phases: 


e Phase 1 (Chart 02), during which a 
major routing table is established for 
the operation to be performed. 


e Phase 2 (Chart 03), during which the 
major routing table is decoded, causing 
the parameter list to be built for the 
Svc to a data management routine, and 
causing appropriate volumes to be 
mounted. The parameter list (Figure 
11) is built at location IEHEMAC1 in 
the work area. 


® Phase 3 (Chart 04), during which the 
initial SVC is issued, its return ana- 
lyzed, and any additional SVCs issued 
in order to complete the request. 


Phase 1 


The program receives control of the CPU 
when the keyword operand PGM=IEHPROGM is 
encountered in an EXEC statement, or when 
the program is invoked by a calling pro- 
gram. The Root segment immediately gives 
control to the Parameter List Builder seg- 
ment. The registers are saved and the work 
area is obtained. Any auxiliary parameters 
are analyzed, and SYSIN and SYSPRINT are 
opened. A new request is initialized for, 
and then obtained (using BSAM). 


FNDECODE then directs control to IEHES- 
CAN to scan the operation name (e.g., 
SCRATCH) from the utility control statement 
image. IEHETLU then uses the name thus 
obtained to look up the address of the 
major routing table corresponding to the 
given operation. FNDECODE then places this 
address at location FINUSE in the work 
area, for use in Phase 2. 


Communication between FNDECODE, IEHES- 
CAN, and IEHETLU is effected through the 
use of the communication table IEHECHAR (in 
the work area), shown in Figure 9. IEHE- 
CHAR is also used in Phase 2 in scanning 
keyword operands. 


Phase 2 


This phase of the program decodes the major 
routing table established during Phase 1. 
Decoding of the routing table results in 
the scanning of keyword operands, the 
volume look-up, the building of the parame- 
ter list for the data management routine to 
be used, and the mounting of volumes. 


Major routing tables appear in CSECTs 
IEHEDC1 and IEHEDC2 in the Parameter List 
Builder segment. There is one major rout- 
ing table for each operation of the 
IEHPROGM program; the symbolic name of the 
routing table is the same as the name of 
the operation it supports. Each major 
routing table consists of a variable number 
of entries; the first byte of each entry 
contains a routine code, and the remaining 
bytes of the entry contain information use- 
ful to the routine. Figure 10 shows tne 
format of the routing table for the Catalog 
operation. 


As indicated on Chart 03, FDLD decodes 
the successive entries of the major routing 
table in use, directing control to the 
indicated routines. 


Note: It is possible for the sequence of 
Operations indicated by a routing table to 
be interrupted, possibly even broken. For 
example, if a syntax error on a control 
statement is encountered, the address of 
the major routing table will be replaced by 
the address of a routing table which will 
effect the writing of appropriate messages. 
FDLD would then decode this table, causing 
IEHEMSGX to write the selected messages. 
Ine last entry in tables of this nature 
will then either cause the address of the 
Original major routing table to be 
restored, or will cause the request to be 
aborted, depending on the severity of the 
situation. 


The scanning of keyword operands takes 
place when a routine code of hexadecimal 01 
is encountered. KODECODE directs control 
to IEHESCAN to scan a keyword or keyword 


a aN a aa RR NR a aa aa a 7 
‘eee Contents | 
oo) 1-byte character for which to scan | 
noo y 1-byte condition code on which scan should stop | 
‘eae 1-byte code for last character scanned | 
| ae 1-byte length of item scanned | 
1 as Pe rg ay 7 4-byte address of where to begin scan | 
tf Oe fleet ee we | . &-byte address of where to end scan if condition not found | 
a eT ae OF a 4-byte address of last item scanned | 
iH Se Papeete y z 4-byte address of table (for IEHETLU; otherwise zero) | 
i oo kOe ew 1 4-byte address found in table by IEHETLU (or zero) | 
ah a a ss See ns es 
Figure 9. IEHECHAR, the Communication Table for FNDECODE, KODECODE,IEHESCAN, and IEHETLU 
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Ce ag en ee ey ee ee eae ae Meas 2 pk i ee See ke A a ey te ans 


The CATALOG Routing Table 


+ + + + + + nn fr ee 


| 

k 

| 

OE wees, Caesars, CERO eveneans Grreanen Gareiias ena ama eas | 
| | 01 | 00 | 70 | 00 { 24 [| 00 | 00 | 00 | 
| -----}----}----}----4----1----1----14----1 
} | 02 | 00 | 50 | OC | 

| -----+----t----+----4 

[| OF | x | x [x | 

| ----+----+----t----4 

|| Bly ly ty | 

| -----+----+----+----4 

| | OA | 0O | OO {| O1 | 

J t----b--~-L--~-L.-~_J 

| Routine Code 

| 
Uvaciwanaanewe eee ewe eee et oa eee 
Figure 10. The CATALOG Routing Table 
value. If VCL is present as a keyword, the 


value supplied to it in the control state- 
ment is passed to IEHDTTLU, the Volume 
Look-up, and the device information re- 
trieved from the look-up is saved for the 
Volume Mounter and data management rou- 
tines. When a value supplied to another 
keyword is detected, a look-up is performed 
by IEHETLU, using the keyword (e.g., 
DSNAME), to retrieve the address of a key- 
word routine, which is then given control. 
(The symbolic address of a keyword routine 
is identical to the keyword name. For 
example, the symbolic address of the DSNAME 
routine is DSNAME.) The keyword routine 
then enters the keyword value information 
into the parameter list for the data man- 
agement routine. Control is then given 
back to IEHESCAN to scan the next keyword 
parameter, and the cycle continues until an 
EOF condition is detected in reading SYSIN 
(or its substitute). 


When the control statement has been 
scanned, control is given back to FDLD to 
decode the next entry in the major routing 
table. Successive entries in the major 
routing table may test for the presence of 
minimum allowable parameters (TESTDUP), 
estaklish a temporary routing table to 
write messages (LINKSAVE), restore the 
major routing table (DCRETURN), or read and 
log the remaining cards (READALL). If an 
error has been found in the utility control 
Statement, the request is aborted, and con- 
trol is given to IEHRESET to honor the next 
request. 


If no error has been found, the last 
entry of the major routing table will have 
been decoded. The last entry of each major 
routing table causes FDLD to give control 
to GETAVOL, which places the number of the 
Major routing table at location FINUSE in 
the work area, and then gives control to 
the Volume Mounter. If any required volume 
is not mounted or mountable, control is 
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Explanation of Table Entries 


DSNAME, CVOL, and VOL are acceptable 
parameters. 
DSNAME and VOL are required. 


xxx = address of error routine. 
yyy is unused. 


The number of this major routing table 
is 1. 


a 


given to IEHRESET; otherwise, control is 
given to the SVC Return Analyzer (IEHEU- 
PIA), and Phase 3 is entered. 


At the completion of Phase 2, the param- 
eter list for the initial SVC to a data 
Management routine has been built at loca- 
tion IEHEMAC1 in the work area. The for- 
mats of the various parameter lists for the 
data management routines are shown in 
Figure 11. 


Phase 3 


Phase 3 issues, and analyzes the returns 
of, all SVCs to data management routines 
used to accomplish IEHPROGM functions. At 
the time Phase 3 is entered, the parameter 
list for the initial SVC has been built, 
and all volumes are mounted or mountable. 


Using the routing table number placed at 
FINUSE (in ithe work area) during Phase 2 by 
routine GETAVOL, routine LATAB replaces the 
routing table number with the address of a 
carry-over routing table, to be decoded by 
FDLD. If the current request is a SCRATCH 
vVIoc request, the carry-over routing table 
will cause itself to be replaced with the 
routing table VTOCDCS. Otherwise, the 
carry-over routing table will simply cause 
the Svc to be issued, by means of the entry 

x*00* AL3 (SVC instruction) 

FDLD then decodes the carry-over routing 
table, establishing the VTOCDCS routing 
table only if the request is to scratch a 
vVitoc. 


SVCRET and SVC26RET decode the return 
from the data management routine used, 
directing control through the branch table 
BRANTAB to diagnostic routines (NEEDINDX, 
SCANIT, INDEX8), or to message-effecting 
routines. 


c 1 
| SCRATCH (SVC 29) RENAME (SVC 30) CATALOG (SVC 26) | 
EET peeeaterseaennesreenpares SOaeaEP Paap nana pues HEE p=ouar penaenn>y snare | 
| Isve bit configuration | {Svc bit configuration| [svc bit configuration| | 
[0 fennn-----------------4 0 f----------------——- { 0 f+===----------------- | 
| | *DSNAME | | *DSNAME | | tDSNAME | | 
| 0 p--eee2-------------- 4 prmannnnnnn nnn nf f-=-----------------—- 4 | 
| | UNUSED | {| tNEWNAME | | *CVOL | | 
| 9 |-------------------- br { --<-----------—---——-4 | 
| {| tVOLLIST | | tVOLLIST | | #*VOLLIST | | 
| bie a ie a | nn a a en ee ee emo eee J ee a tem eae Se er eae eT 4 | 
| | 
| UNCATALOG (SVC 26) BUILD INDEX (SVC 26) DELETE INDEX (SVC 26) | 
i steer r et ee care eorn- ¢ 0 fee rose eae oe 0 Se | 
| isve bit con£iguration | jsvc bit configuration| [svc bit configuration| | 
| = }-------------------- 4 p------------------—-- { ~--------------------{ | 
| | *DSNAME | | * INDEX | { tINDEX | | 
NE cpccpeunenemmnnnentnnen ss MEE coppeaseeeenae { 4a---~-------------—- 4 | 
| | *CVOL | | tCVvoL | { #CVOL | | 
[> ptesaeeea ee ercnce 2 ED igqmenns Suan i dap 4 | 
| | UNUSED | | UNUSED | | UNUSED | | 
| LSet ine eee a tance eee eee oes J Ge ae ae a ne ope Eee eee ESTED J | 
| | 
| BUILD ALIAS (SVC 26) DELETE ALIAS (SVC 26) BUILD GENERATION (SVC 26) | 
L (Stave Saeree ee . SSS | 
| Isve bit configuration | jsvc bit configuration] | sve bit configuration| | 
| Poe go ee 4 mannan] brn nnn 4 | 
| | #* INDEX | | tALIAS | | tiINDEX | | 
| f-------------------- fo frecenne enna fo presen nana anne 4 | 
| | *CVOL i | tCVOL | | *CVOL | | 
[i «abe saeeereaneee erat 4 Se 16 Meee ee 4 | 
| | *tALIAS | | UNUSED | | UNUSED | | 
| betwee oe aa ba ae Se od Deis othe ls J | 
| | 
| CONNECT (SVC 26) RELEASE (SVC 26) | 
b. . (herereset eee en Reeser 1 | 
| isve bit configuration | jsvc bit configuration | | 
| 0 preceraee 4 ------—-------—-----+| | 
| | tINDEX | | ¢* INDEX | | 
| 9 |}--------------~----- 4  -------------------- : | 
| | *CVCL | | #CVoL | | 
| 9 feo ------------------ 400 f}-------------------- 1 | 
| | *VOL | | UNUSED | 
| Pewee ee eee = a a epee epee cae ae os J | 
| 
pean nnn nnn nnn rr rr { 
| Notes: | 
| | 
j} © At time of SVC, register 1 contains the address of the parameter list. | 
| | 
} «© Each parameter list is constructed at IEHEMAC1 in DSECT, tne work area. | 
| | 
{| « The addresses in the above parameter lists ,oint to the following items: | 
| | 
| DS NAME 44—-byte data set name | 
| NEWNAME 44-byte new name of data set | 
| INDEX 44-byte index name | 
| ALIAS 8-byte alias | 
| VOL o-byte volume ID | 
| CVOL o-byte volume ID | 
| VOLLIST 2-vyte count followed by a variable number of fields of the following | 
| format: | 
| | 
| 4-byte table value from DEVNAMET | 
| 6-byte volume ID | 
| 2-byte sequence number (tor taped volumes) | 
A a a a a an a a eS ea a al inl la ce alia a SL J 
pigace 11. Parameter Lists Built by IEHPROGM for Data Management Routines 
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Control is directed in the following 
way: 


1. The return code (in register 15) is 
used by routine SVCRET or SVC26RET 
(depending on the SVC) as an indexing 
factor to retrieve a code number from 
the current entry of the active rout- 
ing table. (The current entry is the 
entry following that entry designating 
the Svc.) 


2. The code number thus retrieved is used 
as an indexing factor to give control 
to the appropriate IEHPROGM diagnostic 
routine to treat the type of return. 
Control is given to a diagnostic rou- 
tine by means of a branch table, 


BRANTAB. 
Example: Figure 12 shows the return- 


indexing entry of the CATALOG routing 
table. This entry is at location CATALOG+ 
28, immediately following the SVC entry. 
Following the return of control to the pro- 
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gram from the catalog routine (SVC 26), 
routine SVC26RET would use the contents of 
register 15 to retrieve a code number from 
tnis return-indexing entry. If the return 
code from the catalog routine were 28, for 
example, a code number of eight would be 
retrieved. Routine SVC26RET would then 
give control (via the branch table BRANTAB) 
to the diagnostic routine indicated by a 
code number of eight. 


r 
CATALOG+28 


. 
| 
--t--1T | 
| 01] 02] 03] 04) 00] 06[07}08;00|00j;00f00] | 
re Win Ray SES Sy Weenie Salone ie “sees Gani aie Se! Glee 
| 

| 

| 

J 


Return code from Catalog (Reg.15) 
Indexing factor for BRANTAB 
Figure 12. The Return-Indexing Entry (for 
the Catalog SVC) of the Catalog 
Operation 


| 
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| 0 4 812 16 20 24 28 32 36 40 44 
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Moving and Copying Data 
(IEHMOVE) 


The IEHMOVE utility program reproduces one 
or more data sets. The move operation 
relocates a collection of data and 
scratches the source data; the copy opera- 
tion produces a replica of the source data, 
and leaves the source data intact. 
Throughout this discussion, the word “copy” 
will refer to both the MOVE operation and 
the COPY operation. 


The program is serially reusable. It 
copies the following collections of data: 


e A data set 

« A volume 

e A group of data sets related by a 
catalog 

e A catalog 


Depending on the compatibility of the 
source and receiving volumes, the movabili- 
ty of the source data set, and the alloca- 
tion of space on the receiving volume, an 
attempt to copy a data set may result in an 
"unloaded" version of the data set. This 
version of the data set is in a format 
recognizabie to the LiHMOVE program, but is 
not directly usable by other programs. An 
attempt to copy an unloaded data set onto a 
volume that would have originally supported 
a successful operation results in the 
“loading" of the unloaded data set, that 
is, the reconstruction of the original data 
set. 


If a user has requested the processing 
of input/output header/trailer labels, this 
program will handie the direct moving or 
copying of such labels as they exist on the 
data sets to be moved or copied. 


OVERALL FLOW 


Figure 13 shows the design of the IEHMOV:E 
program; each of the smaller plocks repre- 
sents a load module, while each of the 
larger blocks represents a grouping of load 
modules by function: 


Program Set-up 

Request Set-up 

Message Writing 

Data Set Group (DSGROUP) Set-up 

Data Set and Volume Set-up 

Partitioned Data Set (PDS) Subroutines 
Copying, Unloading, and Loading 

Data Set Wrap-up 

DSGROUP Wrap-up 


Charts 05 through 10 show the logical 
flow of the program as follows: 


Overall Flow 
DSGROUP Logic 


Chart 05 
Chart Oo 
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VOLUME Logic Chart 07 
PDS Logic Chart 08 
DSNAME Logic Chart 09 
CATALOG Logic Chart 10 


Control is passed between loads almost 
always by means of Transfer Control (XCTL), 
with the following exceptions: 


1. ‘The stem, IEHMOVE, links to IEHMVXSE. 
Ine corresponding return to the stem 
is issued at the conclusion of the 
program by IEHMVESK. 


Z. The message writer, IEHMVESU, is 
always linked to. 


3. IEHMVESR, a PDS subroutine which 
retrieves directory entries froma 
work data set, is always linked to. 


PROGRAM STRUCTURE 


Program Set-up (IEHMOVE, IEHMVXSE, 
ITEHMVXSF) 


The function of initializing the program 
for a job is performed by three loads: 
1EHMOVE, IEHMVXSE, and IEHMVXSE. 


TEHMOVE 
is the stem, which is present during 
the entire execution of the program. 
It obtains main storage for a work 
area (IEHMVV) to be used by the rest 
of the program. 


LITEHMVXSE 
allocates space for the work data sets 
and opens them, clears the work area, 
and sets up an initial call to 
ITEZHMVXSF. 


ITEHMVXSF 
is the volume mounter, described under 
the heading, “Device Allocation and 
Volume Mounting." The first-time 
entry of this routine builds the 
internal table used by the volume 
mounter. 


Request Set-up (IEHMVEST, IEHMVESJ, 
IEHMVESS) 


The program is initialized to handle a 
Single request by three loads: IEHMVEST, 
IEHMVESJ, and IEHMVESS. 


IEBMVEST 
initializes the work area for a re- 
quest and sets up an initial call to 
ITEHMVESJ. 


IEHMVESJ 
is the control statement scanner, 
described under the heading "Control 
Card Scanner." 


te 


ne 


Pienmove—_} LINK fron 
other loads 
GETMAIN for 
work area 


(IEHMVV) 


: pies bare ee eo Contains linkage 
IEHMVXSE : tEHMVXSF ‘ and messages 

Allocate space First-time 

for work data entry builds 

sets : internal table 


: ff RETURN to 
Calling load calling load 


HEHMVEST Rand cotcize: 
Clear work write on 
area, and initialize}: SYSUT? 
for a request — . 


IEHMVX SF 


Set up to copy 
a single data 
set 


Mount Volumes 


IEHMVESS 3 


Analyze field 
scanned 


Close catalog; 


set up request 
for a data set 


IEHMVES) + 
Scan a field : 


from control 
statement 


Test for 
feasibility 
of copying 


All but 
DSGROUP 


IEHMVESV : 
Allocate 
for "TO" data set 


IEHMVESR IEHMVETG is 


Get directory Write directory : Mount volume 


| Build DCBs 
| for "FROM" and 
"TO" data sets 


entries of EHMVESY 
included members 


on SYSUT3 


entry from 


SYSUT3 


RETURN 


[eHMvera | [iexmvert od 


Load 
BSAM or PDS 


IEHMVESC 
Read catalog, ae 
write on 


SYSUT2 


Copy Type F 
BSAM or PDS-_L- BSAM or PDS- 
Reblock Reblock 


Copy BSAM or 
PDS - No 
reblocking 


Another 
Request 


IEHMVETA 


Copy, unload, 
or load 
catalog 


= 


IEHMVESH oe 


Date Set Wrap-up 


Copy IEHMVESN Pen ae 1EHMVESO 


DSGROUP 

Close "FROM" Check error 
ond "TO" data abort, job or 
request 


‘Permanent 
1/0 on SYSPRINT 


Another 
Data set 


TIEHMVETA i 


Move 
DSGROUP 


Do cataloging or Do cataloging or 
uncataloging for uncataloging for 
data set copied 


{EHMVESK oe 

Close SYSIN, : 
SYSPRINT; close 
and scratch 
work files 


Requests 


Notes 


Return to Stem 


1, XCTL from IEHMVXSE, IEHMVEST, or IEHMVESS 


2. Write 'TO' data set info on SYSUT2. When group & 


has been moved, set up to catalog. 


Figure 13. The Design of the IEHMOVE Program 
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IEHMVESS 
analyzes the information scanned by 
IEHMVESJ. For a PDS request, IEHMVESS 
writes the following information: 


e Member names to be included or to 
replace on SYSUT1 (the format is 
shown in Figure 14). 


e Member names to be excluded or to 
be replaced on SYSUT2 (the format 
is shown in Figure 15). 


KEY DATA 
[Ses 1 [Sessa cm | 
| | { 4 | 
‘I aan aoa as oe d L i: 
| | | 
L..8-byte | 


t--9 bytes unused 


--1-byte indicator 
E=excluded member 
R=replaced member 

Figure 15. SYSUT2 Record Format (for a PDS 

Request only) 


Message Writing (IEHMVESA, IEHMVESU) 


All messages are written by IEHMVESU. 
Whenever IELHMVESS effects a message, it 
first interfaces through IEHMVESA, which 
contains messages and linkage to IEHMVESU. 


DSGROUFP Set-up (IEHMVESI, IEHMVESC, 
IEHMVESH) 


Preliminary operations needed to copy a 
group of data sets are performed by three 


loads: IEHMVESI, IEHMVESC, and IEHMVESH. 

KEY DATA 
(oa a 1 (Spee 
| | i | | | 
bea ee es J booed. 2 

A A A A A 

| | | { i 

| | t~~2~byte ; 4 

| | sequence number | | 

| | | 

| t__--.—~-6—byte volume ID | | 

| | | 

L._--~-~~———---— 4-pyte device type | | 

1 | 

| L 

| 

bowen 
Figure 14. 
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IEHMVESI 
opens the catalog and sets up a call 
to IEHMVESC. 


ITEHMVESC 
reads the catalog and writes data set 
information on SYSUT1 (see Figure 18). 


IEHMVESH 
closes the catalog and sets up a re- 
quest to copy a single data set, using 
data from SYSUT1. 


Data Set and Volume Set-up (IEHMVESZ, 
ITEHMVXSF, IEHMVESX, IEHMVESV, IEHMVESY) 


Preliminary operations needed to copy a 
single data set are performed by five 
loads: IEHMVESZ, IEHMVXSF, IEHMVESX, IEHM- 
VESV, and IEHMVESY. 


TEHMVESZ 
examines the request and sets up a 
call to IEHMVXSF. For a VOLUME re- 
quest, IEHMVESZ reads the VTOC and 
obtains a DSCB; if a catalog is 
detected on the volume, its presence 
is noted, but no request to copy it is 
set up until the data sets are copied. 


If an abnormal termination is indi- 
cated as the result of an error in 
either this module or a called subrou- 
tine, this module initiates termina- 
tion of the program. User label exits 
are not processed at this time. 


TEHMVXSF 
is the volume mounter, described under 
the heading “Device Allocation and 
Volume Mounting." This execution of 
the volume mounter effects volume 


mounting. 
aaa aca A Se ee ae 
| | | | | { | 
eee are 4-——---4--~1-~--~-1---4--_-__---4 J 
A | Same as Key | 


8-oyte member name--4 
or new name 


4 pytes unused---—----—--~--- Jj 


-~--8-pyte member name 


~-~---~--~-------44-bpyte data set name 


wenn 1-byte indicator 


I=include this member 

R=this member will replace a 
member 

S=select this member 


SYSUT1 Record Format (for a PDS request only) 


re 


IEHMVESX 


performs tests on the data set to be 
copied. Tests include movability, 
unload or load, access method type, 
compatible block size, and compatible 
receiving device. If a catalog had 
been detected in IEHMVESZ, space is 
allocated for it on the ‘TO‘' volume. 


When user-label processing has been 
specified, this module processes the 
input header labels as it opens the 
input data set. If storage in which 
to save the labels is required, it is 
obtained in this module. 


IEHMVESV 


causes space to be allocated for the 
'TO' data set. If user labels exist 
in the "TO" data set and user-label 
processing has been requested, an 
additional track will be allocated for 
the user labels. The DS1EXT1 field of 
the DSCB is modified for this purpose. 
(For a preallocated 'TO" data set, 
(i.e., one that has been allocated 
before the execution of the IEHMOVE 
program) the user must provide a user- 
label track to permit the labels to be 
moved.) If the "FROM data set is a 
PDS, the directory entries of members 
to be copied are written on SYSUT3. 
During abnormal terminations that are 
handled by this module, no user-label 
exits are processed. If a user-label 
track has not been allocated, the mes- 
sage text in this load module informs 
the user that labels cannot be moved 
or copied. 


IEHMVESY 


builds, using DCB and label informa- 
tion specified by FROMDD and TODD (if 
given in an operation involving 7- 
track or 9-track unlabeled tape), the 
DCBs for the ‘FROM’ and ‘TO* data sets 
and directs control to the appropriate 
module to copy, unioad, or load the 
data set. 


When user-label processing has been 
specified, this module processes the 
output of the user header labels that 
have been saved by the program, as it 
opens the output DCE. 


If this module encounters errors such 
that an abnormal termination is indicated, 
the module initiates termination of the 
program. If user-label processing has been 


specified, the processing operations are 
not performed during the abnormal termina- 
tion procedures. 


If variable spanned records are indi- 
cated, this module will identify the 
record format and determine to which 
module control is to be given for pro- 
cessing each record. If logical 
copies involving changes in the record 
format (RECFM), the block size 
(BLKSIZE), or the logical record 
length (LRECL) of data set records are 
attempted, an error is indicated and a 
message is printed. The program will 
then attempt to move the rest of the 
data sets as requested. , 
This module also writes the first rec- 
ords of an unloaded data set and 
determines the module that next 
receives control to perform the actual 
move/copy Operation. 


PDS Subroutines (IEHMVESR, IEHMVETG, 
TEHMVXSF) 


If a partitioned data set is being copied 
or unloaded, IEHMVESR is always used by the 
copying module, whereas IEHMVETG (which 
uses IEHMVXSF, the volume mounter) is used 
if the request specifies PDS. Figure 13 
shows which loads use PDS subroutines. 


IEHMVESR 
is used to obtain a directory entry 
from the work data set SYSUT3. If the 
directory entry is from the PDS being 
copied, it was placed on SYSUT3 by 
IEHMVESV (Data Set and Volume Set-up); 
if the directory entry is from an 
INCLUDE or REPLACE option, it was 
placed on SYSUT3 by IEHMVETG. The 
format of a directory entry on SYSUT3 
is shown in Figure 16. 


IEHMVETG 
Places directory entries of members 
from INCLUDE, REPLACE, or SELECT 
options on SYSUT3. Each execution of 
IEHMVETG places the directory entries 
to be included from one PDS. When 
there are no more members to be 
included in the copy, IEHMVETG gives 
control to IEHMVESN. IEHMVXSF, the 
volume mounter, is used as needed. 
the logic of IEHMVXSF is described 
under the heading "Device Allocation 
and Volume Mounting." 
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(Hares 1 mace ES SS SSS 1 ‘ie 
| | | | | ‘> | 
4 


8-byte new | 
member name 
or, if none, old member name 


t-— maximum 74-pyte directory entry 
--5-byte CCHHR of this record on SYSUT3 


Figure 16. SYSUT3 Record Format 


data set wrap-up routines. For a PDS, 
at the time IEHMVETJ receives control, 
the directory entries of members (bar- 
ring any EXCLUDES or REPLACEs) of the 
*FROM® PDS are on SYSUT3, where they 
were written by IEHMVESV (Data Set and 


Copying, Unloading, and Loading 


The load modules used to copy, unload, 
and load data are grouped according to the 
type of data set and format condition as 
shown in Figure 17. The modules are 


described below: 


Volume Set-up). The ‘FROM' PDS is 
then copied as follows: 


ITEHMVETA 
copies, unloads, or loads a catalog. 1. IEHMVETJ directs control to IFHM- 
If the catalog is to be loaded, it is VESR, which reads from SYSUT3 one 
in the format shown in Figure 18. ‘The directory entry of the PDS. 
entries are then cataloged on the 
receiving volume. If the catalog is 2. If tne entry indicates a note 
to be unloaded or copied, IEHMVESC list is present, IEHMVETJ reads 
first writes catalog entries on SYSUT1 the note list. Using BSAM, IEHM- 
as shown in Figure 18; IEHMVETA then VETJ then reads and writes member 
catalogs them on the receiving volume records up to the note list. The 
(for a copy) or else simply writes note list is then updated and 
them in the same format (for an written with the new TTRs of the 
unload). members. 

IEHMVETL 3. When all note lists and member 


copies, unloads, or loads a BDAM data 
set. The data set is copied using 
BDAM read and BSAM write (load mode) 
routines. If the input data set rec- 
ord format is type U, the block length 
of each physical record is read and 
calculated and then passed to BSAM 
write. This calculation is unneces- 
Sary for types F and V and is 
bypassed. 


If user-label processing has been spe- 
cified, this module obtains any neces- 
Sary storage in which to save the 
labels. This is done when either the 
end of a data set has been reached or 
a Switch to another volume is to be 
made. The saved labels will be passed 
to the data set wrap-up routines. 


IEHMVETJ 
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copies a BSAM data set or a PDS. A 
BSAM data set is copied using BSAM in 
a simple read-write loop. When either 
the end of a data set or the end of a 
volume has been reached in reading, 
storage will be obtained, if neces- 
sary, for saving any labels for which 
processing has been requested. The 
saved labels will be passed to the 


records have been written, the 
directory entry is updated with 
the new note list addresses and 
then stowed. This process is 
repeated for each directory entry 
on SYSUT3. When the ‘FRCM* PDS 
has been copied, control is given 
to IEHMVETG to write on SYSUT3 
the directory entries for all 
members to be included, selected, 
or to replace from another PDS. 
IEHMVETJ then copies these mem- 
bers as outlined. IEHMVXSF (the 
volume mounter) is given control 
by IEHMVETG as needed. 


IEHMVESL and IEHMVESM 


copy partitioned and BSAM data sets if 
the ‘TO’ data set has been pre- 
allocated (that is, before execution 
of IEHMOVE) and the "FROM' and ‘TO! 
DSCBs indicate that reblocking is 
necessary in order to perform copying. 


IEHMVESL 


copies (with reblocking) a PDS or BSAM 
data set having type F record format. 


Blocks are read (using BSAM) until the 
output block size is surpassed, and 


then logical records are sectioned 


from the high-order end of the buffer 
until the output block size is 
reached. The block is then written, 
using BSAM. The last block (cf a BSAM 
data set or of a member of a PDS) is 
written as a truncated block if neces- 
Sary. For a PDS, any user TTRS are 
ignored. 


If user-label processing has been 
requested, this module will, when 
reaching either the end of a data set 
or the end of a volume, obtain neces- 
Sary storage in which to save the 
labels. When the module passes con- 
trol to the data set wrap-up routines, 
the saved labels are passed to the 
routine that receives control. 


ITEHMVES™M 

copies (with reblocking) a PDS or BSAM 
data set having type V record format. 
The operation is similar to that of 
IEHMVESL: blocks are read using BSAM 
until the maximum output block size is 
surpassed, and then logical records 
are sectioned from the high-order end 
of the buffer until the size of the 
output buffer is not greater than the 
maximum block size. As with IEFHMVESL, 
any user TTRs are ignored in a PDS. 


If user-label processing has been 
requested, this module will, when 
reaching either the end of a data set 
or the end of a volume, obtain neces- 
sary storage in which to save the 
labels. When the module passes con- 
trol to the data set wrap-up routines, 
the saved labels are passed to the 
routine that receives control. 


IEHMVERD 
unloads a PDS or a BSAM data set. For 
a BSAM data set, the data set is read 
one kFlock at a time. After each read, 
the block is prefixed by three-to-six 
bytes of control information, and then 
deblocked into 78-byte sections. Each 
section is then prefixed with a 2-byte 
physical sequence number. The resul- 
tant 80-byte blocks are then written, 
or, if the receiving device permits, 
are reklocked in groups of ten to be 
written out as 800-byte blocks. The 
last klock written is padded with 
blanks. For a PDS, the directory 
entry of a member is first read into 
the buffer. Each note list is read 
and followed by member records which 
precede it in the PDS. Aliases are 


read last. The buffer is sectioned 
and control information inserted. The 
process is repeated for each directory 
entry and its member blocks. Directo- 
ry entries are read from SYSUT3 by 
IEHMVESR. The options INCLUDE, 
REPLACE and SELECT are ignored in 
unloading; the option EXCLUDE is not 
ignored. 


If user-label processing has been 
requested, this module will, when 
reaching either the end of a data set 
or the end of a volume, obtain neces- 
sary storage in which to save the 
labels. When the module passes con- 
trol to the data set wrap-up routines, 
the saved labels are passed to the 
routine that receives control. 


(ooo eo ped ee ee eee oS 
| Type of | |Load Modules | 
|Data Set] Format Condition | Used | 
a OS i Na Ss hte a 3 eee ee senor 
|Catalog |Normal JIEHMVETA with | 
| | | IEHMVESC | 
a lh a ia i at ee 4——+-———-- + 
|Catalog |Previously | TEHMVETA | 
| | unloaded j | 
-------- ------~-----------4-------------J 
| | | | 
| BDAM |Any j TEHMVETL | 
ae a rn a 
|PDS or |Normal, copiable |IEHMVETJ with | 
| BSAM | no reblocking | IEHMVETG | 
| | | (PDS only) | 
| | | IEHMVESR | 
| | | IEHMVXSF | 
}-------- }------------------ 4------------- 
JPDS or |Type F, copiable |IEHMVESL with | 
| ESAM |} with reblocking | IEHMVETG | 
| | | (PDS only) | 
| | | IEHMVESR | 
| | | (PLS only) | 
| | | IEHMVXSF | 
}—---—---4--_-_-...-...._------ 4 
{PDS or |Type V, copiable |IEHMVESM with | 
| BSAM | with reblocking | IEHMVETG | 
| | | (PDS cnly) | 
| | | IEHMVESR | 
| | | IEHMVXSR | 
}-------- 4------------------ +-~----------- 
{PDS or |Normal, uncopiable|IEHMVERD with | 
| BSAM {| must be unloaded | IEHMVESR | 
| | | IEHMVXSF | 
}-------- }------------------ +------------- 
|PDS or |Previously | TEHMVERA | 
| BSAM | unloaded | | 
ee eee ea Meee ae ee ei ies J 


Figure 17. Load Module Groupings for Copy- 


ing, Unloading, and Loading 
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KEY DATA 
amie cana aa 1 CaN Ts ee oe ee ey eo 7 & > 
| | ; il DEPENDENT ON CODE (see below) { 
Caetano a J baw ee ee J 
4 A 
L--12 Lytes | &--1-byte code (0,4,8,C) 
unused L---—— 2-byte length 
CODE=0 (DATA SET ENTRY) 
CS eas a ee a aca aaa aa at coer y 
; of | | | | 
bee wba da aoe ee ee ee Ee pete | ee ON a nC ene ea erection 
| rt 
| | up to 50 12-byte 
| | volume entries 
| t---2-byte number of 
| volume entries 
L--———————~————-—--—~~-—~-—-~————~—~-—--— 44-byte data set name 
CODEF=4 (ALIAS ENTRY) 
acai. ast Comin aera 6 asa aaa eats 1 
| 1 | | | 
booted 
1 
| t-—8-byte alias 
L______----- 8-byte name 
CODE=8 (CVOL ENTRY) 
CSS ee 1 
| | | | | 
Re BE a es 4 
t 
| t--6-byte volume ID 
L_—~—-—-———~——~— 8-byte name 
CODE=C (GDG ENTRY) 
ay ee a ee he ar eg ee 1 
; ot | 1 1 | | 
bow Be ies ee eae Nhe cs Be ee J 
t tt 
| | | &---Model DSCB 
| } t----- maximum generation nurber 
| t--____— current generation number 
t--~~~—-—-~---—~—-—~-~-—~—--—--—~—-—~———-- 35-byte name 
Figure 18. SYSUT1 and SYSUT2 Record Formats for DSGROUP; SYSUI1 Record Formats for 


CATALOG 


ITEHMVERA 
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loads a PDS or BSAM data set. fFcra 
BSAN data set, a block is read, the 
control information is removed and 
analyzed, and successive blocks are 
read untii a block from the original 
data set is reconstructed. The block 
is then written, and the process is 
repeated until the original data set 
is loaded. For a PDS, the process is 
Similar: the directory entry is first 
reconstructed, but is not stowed until 


‘member blocks have been written and 


note lists updated and written. At 


the time the data set was unloaded, an 
entry was written, followed by member 
blocks (in unloaded format). 


If user-label processing has peen 
requested, this module will, when 
reaching either the end of a data set 
or the end of a volume, obtain neces- 
sary storage in which to save the 
labels. When the module passes con- 
trol to the data set wrap-up routines, 
the saved labels are passed tc the 
routine that receives control. 


DSGROUP Wrap-up (IEHMVESH, IEHMVETA) 


After each data set of a DSGROUP has 
been copied, control is given to IEHMVESN 
of the Data Set Wrap-up portion of the pro- 
gram. If scratching of the "FROM' data set 
is necessary (for a MOVE DSGROUP, for 
example), control is given to IEHMVESQ, 
which scratches the "FROM" data set, and 
then gives control to IEHMVESH. If 
scratching is not necessary, control goes 
directly from IEHMVESN to IEHMVESH. 


IEHMVESH 
*‘TO' data set writes ‘FROM’ data set 
information on SYSUT2 in the same for- 
mat in which the information was orig- 
inally written on SYSUT1 (see Figure 
18). This information is written so 
that the catalog can be updated as 
needed. If there is another data set 
in the group to be copied, IEHMVFSH 
gives control to IEHMVESZ to set up 
the next copy; if all the data sets 
have been copied, IEHMVESH sets up a 
request to catalog the updated data 
set information on SYSUT2 and gives 
control to IEHMVETA. 


IEHMVETA 
reads SYSUT2 and catalogs the informa- 
tion. The process is the same as that 
followed by IEHMVETA in copying a 
catalog. 


Data Set Wrap-up (IEHMVESN, IEHMVESO, 
ITEHMVESP, IEHMVESC, IEHMVFESK) 


Load modules in this group perform ter- 
minal operations following the copying, 
unloading, or loading of a data set fro- 
cessed for a PDS, DATA SET, or VOLUME re- 
quest. In addition, when all requests have 
been serviced, control is given to 
ITEHMVESK. 


IEHMVESN 
completes the moving or copying of a 
data set and closes the "TO" and 
*‘FRCM* data sets. 


If user labels have been specified, 
and if output trailer labels have been 
saved in storage, these labels are 
written out and the storage area is 
released. If a user-label track has 
not been allocated, the message text 
in this load module informs the user 
that lakels cannot be moved or copied. 


ITEHMVES O 
is entered following an unsuccessful 
copying, unloading, or loading ofera- 
tion, or following a test ((Data Set 
and Volume Set-up) indicating a re- 
quest could not be honored. IEHMVESO 
prints a diagnostic message and 
scratches the ‘TO* data set. 


IEHMVESP 
performs terminal operations following 
a COPY request, including any speci- 
fied or implied cataloging, uncatalog- 
ing, and scratching. 


IEHMVESQ 
performs terminal operations following 
a MOVE request, including any speci- 
fied or implied cataloging, recatalog- 
ing, and scratching. 


ITEHMVESK 
is entered when all requests have been 
serviced, or when a permanent I/C 
error has been detected on the print- 
er. IEHMVESK closes SYSIN and SYS- 
PRINT, closes and scratches the work 
data sets, frees main storage, and 
returns control to the stem, IEHMOVE. 
During abnormal termination handled by 
this module, user-label exits are not 
processed. 


COMMUNICATION AREA (IEHMVV) 


The communication area for the program 
is defined at assembly time by the macro 
instruction IEHMVV, which is internal to 
the IEHMOVE program. Register 12 contains 
a pointer to tne communication area whenev- 
er a request for a module is issued. 


The macro instruction IEHMVV generates a 
dummy section (also IEHMVV) containing work 
areas and control data for all object 
modules of the program. Main storage for 
the dummy section IEHMVV is obtained dynar- 
ically by the stem. 


The communication area consists of the 
following parts: 


e A work area of 512 bytes (IEHMVOO). 


e The addresses of the beginning and end 
of an 800-byte work area (IEHMVV10). 


e A table of switches controlling the 
flow of the program (IEHMVV20). 


e A control table containing the return 
codes of the control statement scan 
routine (IEHMVESJ). 


e A table of control data for volume 
lists and include-exclude-replace lists 
(IEHMVV21-IEHMVV26). 


e A table of addresses of the FRCM data 
set's DCB, DSCB, DECB and ddnare 
(IEHMVV30) and the TC data set's DCB, 
DECB and ddname (IEHMVV31). Each 
address is stored in a fullword. 
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A table of the addresses of the CDCBs 
and DECBs of SYSPRINT (IEHMVV33), SYSIN 
(IEHMVV32), and SYSLIB (IEHMVV34). 


e A table of work data set control data 
(LEHMVV39). 


e A takle of addresses of work areas for 
loading, unloading, including, replac- 
ing, and copying a PDS. 


e The DCB exit list (for user-label pro- 
cessing) defined by the macro instruc- 
tion IEHDCBXL. This list is found in 
the 40-byte section IEHMVV70 of the 
communication area. Included in the 
list are symbolic names for the input 
and output header-label processing sub- 
routines, the input and output trailer- 
label processing subroutines, the DCB 
exit, and the OPENJ JFCB exit. 


e An area containing pointers both to the 
storage area (the label save area) 
obtained for user labels and to the 
current label being processed. These 
pointers are in the 20-byte section 
IEHMVV72. For the first label being 
processed, both pointers will indicate 
the same address. Figure 19 indicates 
these relationships. 


IEHMVV72 


Label Save Area 


Example of pointers when third label is being processed 


Figure 19. Label Save Area Pointers 


IEHMOVE WORK DATA SET RECORD FORMATS 


The program uses three work data sets; 
SYSUT1, SYSUT2, and SYSUT3. How a work 
data set is used depends on the function 
being performed by the program. The fol- 
lowing table (Figure 20) shows where record 
formats may be found. A blank entry indi- 
cates that the work data set is not used 
for the indicated function. The entry 16* 
indicates that SYSUT3 is used for any par- 
titioned data sets found within a group of 
data sets or a volume. 
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SYSUT1 SYSUT2 


- 
| Single Data Set| 
| (not a PDS) | 


Function SYSUT3 


| 
! 
| 
! 
| 
! 
| 
ee 
! 
| 
| 
I 
! 
| 
| 
a 
© 


~---------------}-------4-------------- 
| Single Data Set| | | | 
} (PDS) |Fig. 14|Fig. 15|Fig. 16 | 
|—-----—------} -------}--—--}---—--— 
| Volume | | |Fig. 16*| 
| DSGroup |Fig. 18|Fig. 18|Fig. 16*| 
p——-------------} === === f 4 --- { 
| Catalog |Fig. 18] | | 
SR etry eel er ee ee ee 1 ae eee : aera A eee eres J 
Figure 20. Where to Find Record Formats 


The device on which the work data sets 
reside is allocated by job management and 
is associated with the ddname SYSUT1. The 
spaces occupied by the work data sets spe- 
citied by the names SYSUT1, SYSUT2, and 
SYSUT3 are dynamically allocated. 


Obtaining Space for a work Data Set 


Space for a work data set (e.g., SYSUT3) is 
obtained from DADSM in the following way: 


1. the first time space is requested, it 
is requested for the data set 
**SYSUT3. 


2. If the return from DADSM indicates 
that a DSCB for the requested data set 
space already exists on the VTCC, the 
name previously submitted to DADSM is 
qualified by the index name consisting 
of the single character * and the 
modified request is submitted to 
DADSM. 


Step 2 is repeated until space is allo- 
cated or until 44 bytes have been used with 
no success. Thus, the first request for 
space for SYSUT3 either results in space 
being allocated for the 8-byte name 
**SYSUT3 or an indication that a data set 
of the name **SYSUT3 already resides on the 
subject volume. If the latter, space is 
requested for the data set **SYSUT3.*. The 
third request, if necessary, would specify 
the name **SYSUT3.*.*. A count of the 
number of times the name has been qualified 
is maintained in the communication area, 
IEHMVV. 


After space has been allocated for the 
work data sets, they are opened in the 
order: SYSUT1, SYSUT2, SYSUT3. 


Releasing Space Used by a Work Data Set 


The work data sets are not closed until 
final wrap-up. At this time, SYSUT3 is 
first closed and scratched, then SYSUT2 is 
renamed to SYSUT3 and closed and scratched, 
and then SYSUT1 is renamed to SYSUT3 and 
closed and scratched. 


Chart 05. IEHMOVE Overall Logic 
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Chart 06. IEHMOVE DSGROUP Logic 


NOTE: !f User Labels are Present, 
Exit from this Block to 
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Return to this Block. 
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Chart 07. 


IEHMOVE VOLUME Logic 
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Chart 08. 
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IEAMOVE PDS Logic 
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Chart 09. IEHMOVE DSNAME Logic 
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4y 


IEHMOVE CATALOG Logic 
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*Figure 21. 


Listing System Control Data 
(IEHLIST) 


The IEHLIST utility program performs three 
functions: 


e It prints a catalog or partial catalog. 


e It prints a volume table of contents 
(VTOC). 


e It prints the directories of up to ten 
partitioned data sets (PDSs). 


The program is serially reusable, but 
not reenterable. 


PROGRAM STRUCTURE 


The overlay structure of the program is 
shown in Figure 21. The program consists 
of the following control sections (CSECTs): 


e IEHRCCT performs basic program initial- 
ization. It is resident in main 
storage throughout the program's execu- 
tion, unlike the other CSECTS. IEHROOT 
contains V-type address constants 
needed ky the overlay supervisor. 


e IEHMSG contains only messages. 
e IEHPSEG analyzes requests. 


® RDCDRT scans control statements. 


IEHROOT 


e DEVNAMET is the device name table. 


e IEHINSEG interprets parameters supplied 
by a calling program. 


e IEHQSEG scans and prints cataloged 
data. 


e IEHRSEG scans and prints VTOC data. 


e IEHSSEG scans and prints PDS directory 
data. 


e IEHDSEG processes and formats the DSCBs 
in the vTcoc. 


e IEHVOLMT mounts necessary volumes. It 
is described under the heading "Device 
Allocation and Volume Mounting." 


e DEVMASKT is a device mask table used by 
TEHVOLMT. 


Chart 11 shows the logical flow of con- 
trol through the program. Figure 22 shows 
the structural flow of the program, includ- 
ing the successive phases of the contents 
of main storage during the program's execu- 
tion. The logic of each control section 
(CSECT) of the program is described in the 
following paragraphs. 


IEHROOT 
contains miscellaneous routines needed 
in main storage throughout the pro- 
gram*s execution (PERRPR, WCRKERR, 
PTERM, LINEPR, DCPOINT, and PEREGIN), 


Initialization 


IEHMSG 
Messages 


JEHINSEG 
Auxiliary 
Parameter 
Analyzer 


IEHQSEG 
Catalog 
Printer 


IEHPSEG 
Request 
Analyzer 


DEVNAMET 
Device 
Name 

Table 


RDCDRT 
Control 


Statement 
Scan 


IEHRSEG 
VTOC PDS Directory 
Printer Printer 


IEHVOLMT 
Volume 
Mounter 


DEVMASKT 
Device 
Mask Table 


IEHDSEG 
Formatted 
VTOC 


Printer 


IEHSSEG 


The Overlay Structure of the IEHLIS1T Program 
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Pa 


IEHQSEG, 
IEHINSEG IEHPSEG IEHPSEG IEHPSEG DEVMASKT IEHPSEG IEHRSEG, IEHPSEG 
IEHSSEG 
r or 
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loading is constant causes (IEHPSEG) is (RDCDRT) is (DEVNAMET) (IEHVOLMT) request printing routine* overlays the 
caused by the overlay loaded as in @. loaded. Control overlays the and the device analyzer overlays the segment loaded 
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branch table in load the message the request of the segwait (DEVMASKT) the root. program 
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specifies a the VTOC. 


control section 


(CSECT) 


specifies a phase of 
main storage contents 


The Structural Flow of the IEHLIST Program 


IEHSSEG 


eFigure 22. 


PBEGIN 
directs control to the segments by 
means Of a branch table of V-type 
address constants. 


together with several communication 
areas (CARDIN, PRINTOUT, WORKIN, and 
RONTAB) .« 


PERRPR 


causes any invalid control statement The following areas are located in the 


to be printed, and gives control to root: 
PTERM or PBEGIN, depending on wheth- 
er there are any more control CARDIN 
statements. is the DCB for reading control 
statements. 
WORKERR PRINTOUT 
treats all SYNAD exits. is the DCB for printing the catalog, 
vioc, or PDS. 
PTERM WORKIN 
receives control when all job is the DCB for reading the catalog, 
requests have been serviced or vtToc, or PDS directory. 
aborted, and ends the job. 
RONTAB 
is the parameter list for the volume 
LINEPR mounting routine. 
prints all program output. 
IEHP SEG 


analyzes requests and directs control 
to the appropriate routine to print 
the requested information. It con- 
tains the following subroutines: 


DOPOINT 
issues all POINT supervisor calls 
used by the program. 
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PBEGIN 
directs control to IFHINSEG to 
interpret calling program parame- 
ters, and to open SYSIN and 
SYSPRINT. 


PON 
directs control to RDCDRT to obtain 
control card information. 


PKEY 
is given control when a keyword is 
returned by RDCDRT. 


PPARAM 
is given control when a parameter is 
returned by RDCDRT. When the param- 
eter supplied to the (optional) VOL 
keyword is returned, the parameter 
is used as a search argument in the 
device name table. The value re-~ 
trieved is used by PWORKIN. 


PWCRKIN 
constructs the calling sequence for 
IEHVOLMT. 


PHEAD 
prints a header and gives control to 
the appropriate routine to print 
catalog, VTOC, or PDS directory 
information. 


PTERM 
receives control following the 
printing of catalog, VTOC, or PDS 
directory information. If there is 
another request, PTERM directs con- 
trol to PON; otherwise, PTERM closes 
SYSIN and SYSPRINT, and returns con- 
trol to the supervisor. 


RDCDRT 


scans utility control statements. It 
is described under the heading "“Con- 
trol Card Scanner" at the beginning of 
this publication (see the Table of 
Contents). 


IEHINSEG 


interprets auxiliary parameters sup- 
plied by a calling program (these pa- 
rameters are described under the head- 
ing "Auxiliary Parameters"), and also 
opens SYSIN and SYSPRINT or their sub- 
stitutes, as specified in the calling 
sequence to the program. 


IEHQSEG 


prints the catalog. It gains control 
indirectly from the request analyzer, 
IEHPSEG, by means of a branch toa 
branch table in the root. IEHQSEG 
contains the following routines: 


QCHECK1 
scans the catalog for general infor- 


mation and prints it. Actual print- 
ing is done via a branch-and-link to 
LINEPR in the root. 


QHEAD 
prints a catalog header after the 
general information is printed. 
Actual printing is done via a 
branch-and-link to LINEFR. 


QALL 
scans high-level node points in the 
catalog and passes them to CILCCATE. 
QALL is used only in the case of an 
entire catalog printout. 


QLOCATE 
scans from a node point to succes- 
Sive index levels until a data set 
pointer is found. A fully qualified 
data set name is placed at location 
INDXNAME for routine LPRDATA. 


LPRDATA 
prints information pertinent to a 
data set. 


QCA TREAD 
performs all the reading of a cata- 
log for the catalog function of the 
program. 


IEFHRSEG 
prints a VTOC. Control is gained 
indirectly from IEHPSEG by means of a 
kranch to a branch table in the root. 
IEHRSEG contains the following 
routines: 


RPARTIAL 
treats requests for partial VTCC 
printouts. Successive DSCBs are 
printed by linking to RPRDSCE. 


RENTIRE 
treats requests for entire VTCC 
printouts and differs from RPARTIAL 
in that the VTOC must be opened. 


REODAD 
calculates and prints volume space 
information for an entire VTOC 
printout. 


RPRDSCB 
prints a DSCB that has been read by 
RPARTIAL or RENTIRE. 


RREAD 
reads the VTOcC. 


ITEHSSEG 
prints PDS directories. Control is 
gained indirectly from IEHPSEG by 
means of a branch to a branch table in 
the root. IEHSSEG contains the fol- 
lowing routines: 
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SSTART 
oktains the directory of a given 
PDS. 


SRESCAN 
prints the member names of the di- 
rectory. Actual printing is done by 
linking to LINEPR. 


IEHDSEG 
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formats the DSCBs in the VTOC (See 
Appendix C). This CSECT gains control 
indirectly from CSECT IEHPSEG by means 
of Eranching to a branch table in the 
root segment. CSECT IEHDSEG contains 
the following routines: 


DPARTIAL 
handles requests for a partial VTOC 
printout. The routine reads the 
Format 1 DSCB by using the OBTAIN 
macro instruction and links to the 
DFORMAT1 routine for printing of the 
DSCB. The DPARTIAL routine then 
links to the DFORMAT2 and DFORMAT3 
routines for printing, respectively, 
the Format 2 and/or Format 3 DSCBs. 


DENTIRE 
handles requests for the printout of 
an entire VTOC. This routine is 
Similar to the DPARTIAL routine. 
However, for an entire VTOC print- 
out, the DCB for the VTCC must be 
opened and all forms of DSCBs are 
formatted. 


DFORMAT1 
handles the formatting of the Format 
1 DSCB. 


DFORMAT2 
handles the formatting of the Format 
2 DSCB. 


DFORMAT3 
handles the formatting of tne Format 
3 DSCB. 


DFORMAT4 
handles the formatting of the Format 
4 DSCB. 


DFMT56 
handles the formatting of Format 5 
and Format 6 DSCBs. 


eChart 11. IEHLIST - Listing System Control Data 
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Updating XCTL Tables for OPEN, 
CLOSE, and EOV (IEHIOSUP) 


The IEHIOSUP program updates the XCTL 
tables emkedded within various load modules 
of the I/O support functions OPEN, CLOSE, 
and EOV. The program is executed as a 
result of jok control statements in the job 
stream at the time of system generation. 
The program is not serially reusable. It 
consists of one load module, IEHIOSUP. 


The name of the load module for the 
first phase of each of the I/O support 
functions listed above is of the form 
IGccOOnnn, where nnn is the decimal SVC code 
for the data management function. The 
names of subsequent load modules are of the 
form IGGnnnxx, where nnn is the decimal SVC 
code for the data management function, and 
xx is a load module identifier. If the 
seventh character of the load module name 
is alphaketic, the load module contains no 
XCTL table. 


An XCTL table is always present in the 
first type of load module, but not always 
present in the second. If present, the 
table may be embedded anywhere within the 
load module (see Figure 23). The last byte 
of the load module is a relative pointer 
(in double words) to the table. 


IGcoonnn 
or 
IGGnnnxx 


|---------- ----------—-- 1-----4 
| ID TTR |} L | 
XCTL table }--—-------- $---~—---~—--+--- +----- | 
(variable | | | | 
length) [---------- $-------------- +----- | 
i | | | 
}---------- -------------- 4-----4 
| 00 | { | 
b=-=5-—+ = Bh doen a Beene [aoe 4 
| 4 indicates end of table | 
| | 
| p--~-----------7-----4 
i | svc i P | 
tae a Sea J 

ID = 2-byte entry identifier of a subse- 

quent load 


TTR = 3-byte relative track address of the 
subsequent load 

L = 1-byte length (double-words) of the 
subsequent load 

Svc = 3-byte decimal SVC number of support 
function 

P = 1-byte relative pointer (double- 
words) to XCTL table 


Figure 23. Embedded XCTL Table Format 
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Each entry within an XCTL table consists 
of the identifier of a subsequent load 
module, the location of the load module 
(TTR), and the length (in double words) of 
the load module. 


9 


PROGRAM FLOW 


The flow of the IEHIOSUP program is shown 
in Chart 12. 


Finding the Load Module 


Load modules of the first type (IGC00Onnn) 
are updated first. If a load module of 
this type is not found, an appropriate mes- 
sage is printed and the program is aborted. 
Load modules of the second type are pro- 
cessed only after successful processing of 
the first type; during this processing, the 
program ends normally if either all load 
module XCTL tables are updated or the end 
of the directory is reached in searching 
for a load module entry. 


Entries for load modules are sought for 
in order of increasing binary value (in 
accordance with the organization of the 
directory) by reading a directory record 
and comparing the record key to the name of 
the desired load module. When the record 
key compares higher than or equal to the 
load module name, the entry is sought for 
(sequentially) in the record. If the load 
module is of the first type (I1GC0OQOnnn) and 
no entry is found for it in the record, the 
program aborts. Load module names whose 
seventh character is alphabetic are 
ignored, since the load modules they name 
have no XCTL tables. 


When the entry for the load module is 
found in a directory record, the location 
(TTR) of the load module is extracted from 
the entry and converted to an absolute 
address (MBBCCHHR). The conversion is 
effected via the execution of the program 
IECPCNVT, which is passed the TTR to be 
converted and the address of the appropri- 
ate DEB. The address of the IECPCNVT pro- 
gram is found in the Communications Vector 
Table at absolute (decimal) location 44. 


Updating the XCTL Table 


The absolute address of the load module 
desired is then used to read the load 
module into the buffer BUFFER. Reading of 
the load module is done via the EXCP macro 
instruction; the channel program is at 
location CCWREAD, and the DCB is at loca- 
tion EXCPDCB. When the load module has 
been read into main storage, the address of 
its last byte is determined using the count 
field of the CCW and the residual count of 


the CSW and is used to calculate the 
address of the beginning of the XCTL table 
within the load module. Up to 40 entry 
identifiers are then moved from the XCTL 
table and sorted in the area SORTAREA. If 
more than 40 entries are in the xCTL table, 
a switch (SWITCH + 1) is set. After the 
entry IDs are sorted, each is expanded to 
its full 8-byte form (i.e., IGGnnnxx). The 
sorted, expanded IDs are then passed to the 
BLDL macro instruction, which returns in 
BLDLAREA the new entry values (TTR and 
length) for each ID. The values are then 
moved to XCTL table. Any remaining entry 
IDs in the table are sorted, expanded, and 


passed to BLDL, 40 at a time, and updated 
in the same manner. 


The entire load module containing the 
updated XCTL table is then written at its 
Original location. If there are nc more 
load modules to be processed, the SVCLIB 
data set is closed and the program ter- 
minates. Otherwise, control cycles as 
indicated in Chart 12 until all load 
modules are processed or an error condition 
is returned by BLDL or EXCF. Such an error 
condition results in abnormal termination 
of the program. 
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Chart 12. 
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IEHIOSUP - Updating I/O Support XCIL Tables 
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Initializing the SYS1.LOGREC Data 
Set (IFCDIPOO) 


The IFCDIPOO program is executed during 
system generation to initialize the SyYS1. 
LOGREC data set (a data set used by systems 
environment recording modules to record 
CPU, channel, and I/O device errors). 


This program is executed as a result of 
job control statements provided by the GEN- 
ERATE macro instruction during the SYSGEN 
process. Input to the program (as speci- 
fied in the EXEC statement) consists of the 
(decimal) number? of unit control blocks 
(UCBs) in the system, and the system resi- 
dent device type code (for an explanation 
of the code, see “SYS1.LOGREC Record 
Format"). 


The output of this program at normal 
completion is of three types: 


e The initialized data set SYS1.LOGREC. 
(See the section "SYS1.LOGREC Record 
Format." ) 


e Information to be used as parameters 
for executing the environment recording 
edit and print (EREP) program. 


e Information to be used for recording 
CPU, channel, and I/O device errors by 
the systems environment recording 
modules. 


PROGRAM FLCW 


Chart 13 shows the flow of the progran, 
which consists of one load module (IFc- 
DIPO0). The data set SYS1.LOGREC to be 
written consists of three subsets: 


e A header record, written by this 
program. 


e A variakle number of statistical data 
records (STAT/RECs), written by this 
program with data fields of zeros. 


e A record entry area beginning on the 
first track following the STAT/RECs, 
not written by this program. 


SYS1.LCGREC records are written using 
BSAM WRITE. Diagnostic messages are writ- 
ten using the WIC macro instruction. 


The program is executed in two passes: 
the first pass (see Figure 24) initializes 
the program, writes a dummy header record, 


41This number is equal to the number of 
uniquely addressable I/O devices in the 
system. 


and writes as many statistical data records 
as there are UCBs for the system; the 
second pass (see Figure 24) uses the data 
obtained in the first pass to write a 
genuine header record over the dummy, and 
then writes as many statistical data rec- 
ords (over and following those written dur- 
ing the first pass) as are necessary to 
fill out the track occupied by the last 
statistical data record written during the 
first pass. 


SYS1.LOGREC After First Pass of IFCD1F00 
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SYS1.LCGREC After First and 
Second Passes of IFCD1EF00 


figuee 24. 


First Pass 


Program initialization consists of saving 
registers and analyzing the input from the 
EXEC statement. The dummy neader is then 
initialized and written. The iocation (in 
TIR format) of the dummy header is saved 
for the second pass. The first pass sta- 
tistical data records are then written, 
each of which consists of a 2-byte key 
(ascending sequence) and a 38-byte data 
field of zeros. The location of the last 
statistical data record written during the 
first pass is saved for the second pass, 
where it will be used to compute informa- 
tion necessary to complete the genuine 
header record. The program then enters the 
second pass. 


Second Pass 


A switch (PASS) is set, indicating that the 
program has entered the second pass. This 
Switch will be interrogated following the 
rewriting of the statistical data records 


System Utility Programs: IFCDIFOO 53 


in this pass. First, however, data neces- 
Sary to the genuine header record is com- 
puted. A description of the fields of the 
header record may be found under “SYS1. 
LOGREC Record Format." The values supplied 
to these fields are computed using the 
track number oktained by the NOTE routine 
following the writing of the last statisti- 
cal data record written during the first 
pass. 


The genuine header is then written. 
Following this, the original statistical 
data records are rewritten. The switch 
PASS is interrogated, and indicates that 
the second pass has been entered. The 
track containing the last statistical data 
record is then padded with additional sta- 
tistical data records. SYS1.LOGREC is 
closed, and IFCD1P00 returns control to the 
supervisor. 


SYS1.LOGREC RECORD FORMAT 


The SYS1L.LCGREC data set consists of three 
subsets: 


e A header record, written by this 
program. 


e A variable number of statistical data 
records (STAT/RECsS), written by this 
program and initialized to zero. 


e A record entry area (RE), not written 
by this program. 


Header Record 


The header record is a 38-byte data field 
preceded by a 2-byte key of hexadecimal 
FFFF. The header record contains the fol- 
lowing fields: 


1. A four-Lryte field containing the 
address (CCHH) of the first track in 
the SYS1.LOGREC extent. 


2. A four-kyte field containing the 
address (CCHH) of the last track in 
the SYS1.LOGREC extent. 


3. A one-byte constant containing the 
highest address of a track ona 
cylinder of the system resident 
device. 
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4. A seven-byte field containing the 
address and ID (BBCCHHR) of the first 
track of the RE area. The ID is set 
to zero. 


5. A two-byte field containing the number 
of remaining bytes on the last RE 
track written. This field is initial- 
ly identical to field 6. 


6. A two-byte constant equal to the track 
byte capacity for the system resident 
device. 


7. A seven-byte field containing the 
address and ID (BBCCHHR) of the last 
track written in the RE area. This is 
initially identical to field 4. 


8. A two-byte field containing the number 
of UCBs in the system. 


9. A two-byte field containing the number 
of tracks occupied by the SYS1.LOGREC 
data set. 


10. A one-byte code for the type of system 
resident device: 


DEVICE CCDE 
2311 Xx*01" 
2301 X*02° 
2302 X*O4* 


11. A five-byte expansion field. 


12. A one-byte field of hexadecimal FF 
used to detect a previous overrun con- 
dition caused by a machine check or 
channel inboard failure while writing 
the header record. 


Etatistical Data Records 


This program writes each statistical data 
record with a 2-byte key field and a 38- 
byte data field of zeros. 


Record Entry Area 


This area begins on the first available 
track following the last track on which a 
Statistical data record is written. Noth- 
ing is written in this area by this pro- 
gram. The address of this track is written 
by this program in field 4 of the header 
record. 


Chart 13. IFCDIPOO - 
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Editing and Printing Environmental 


Records (IFCEREPO) 


The IFCEREPO ("“EREP") program edits and 
prints records from the SYS1.LOGREC data 
set. (These records were originally writ- 
ten by systems environment recording pro- 
grams and provide the error environment of 
CPU, channel, and device errors.) EREP 
optionally saves certain SYS1.LOGREC error 
records on an accumulation (history) data 
set to provide comprehensive error statis- 
tics. The accumulation data set may then 
be used as input to EREP. Records from 
SYS1.LOGREC (except SDRs) or from an accu- 
mulation data set are printed in summarized 
form when the summary option is selected. 


EREP operates in the problem state and 
is serially reusable. It consists of the 
following machine-independent modules: 


e IFCEREPO and IFCEREP1 (Charts 14-18), 
the control modules. 


e IFCMSGO0O, the message module. 


e IFCSDROO (Chart 19), which edits sta- 
tistical data records (SDRs). 


e IFCOBROO (Chart 20), which edits I/0 
outboard records (OBRs). 


© IFCOBRSM, which edits the outboard 
record summary. 


® IFCMCHOO (Charts 21 and 22), which per- 
forms preliminary editing of channel 
inboard records and machine check 
records. 


Figure 25 illustrates the communication 
between modules of the EREP program. 
Figure 26 lists the machine-dependent 
modules of the EREP program. 


poo --------7 LOAD) ,-—------------- 1 
| LFCEREPO }—----->| IFCEREP1 | 
| (Model | (Model | 
| Independent | | Dependent | 
|Control Module) /e------}|Control Module) | 
ei a eee a oe ae J aa eae eRe eae rer TO er J 
L| f cf 
I| | E| 
N| | T| 
K| | Ul 

| | R| 

y+ 5 

| 

i lana ed ee et ea ae 

|Process and Edit| 

| Modules | 

bee ees J 
Figure 25. Control Flow Between Modules 
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All communication between record 
processing/editing modules and control 
modules is through IFCEREPO, the model- 
independent control module. This module 
then may communicate with IFCEREP1, which 
is model dependent, to handle summary/ 
process/edit requests. 


Overall Flow 


The control module first scans and analyzes 
parameters from the execute statement, and 
then performs basic initialization, such as 
loading the second control module and the 
message module. Module IFCEREPO also 
determines the input and output data sets 
to be used and opens their associated DCBs. 
When the parameters specify the summary 
option, the control module obtains via a 
GETMAIN macro instruction from 1.7 to 4K 
bytes of storage. (The size of obtained 
storage depends on the amount of free 
storage.) 


The record-processing path determined by 
the control module depends on whether the 
input data set is SYS1.LOGREC or an accumu- 
lation data set. When the input is an 
accumulation data set, program flow also 
depends on whether a record data summary is 
requested. (The control modules indicate 
program flow by setting bits or bit- 
combinations in four switch bytes.) 


SY¥S1.LOGREC Input 


When SYS1.LOGREC is the input data set, 
EREP processes all records of a type before 
processing another type. The program reads 
a record from SYS1.LOGREC and the appropri- 
ate editing module is given control by 
means of the Link routine. When all rec- 
ords of the selected type have been read 
and the appropriate ones edited and writ- 
ten, the options are checked to see if 
another type of record is to be processed; 
if so, all the records of this type are 
read and the appropriate ones edited and 
written. For record types other than SDR, 
optioned summary and accumulation functions 
are performed before EREP begins processing 
another record type. (Unlike other record 
types, OBRS are written into the accumula- 
tion data set in blocks of ten. Space for 
record blocking is reserved in the message 
module.) 


When all records of the selected types 
have been processed, the SYS1.LOGREC header 
record is checked by the control module to 
see if any additional records were stored 
in SYS1.LOGREC while EREP was processing. 
If any were stored, the program enters a 
second pass and the additional records are 
edited and written regardless of tne 
options selected. No summary of these rec- 
ords is performed. 
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Soe oc Pee eee ere ete ee eS CT ea ee baa | 
&Y | MACHT NE | MODULE ID | MODLIB ID | FUNCTION | 
| | | | (ee) | | 
~----------- }---~----------}-----------}-----------------------------------------------4 
|Model 40 | IFCMC140 | IFCEP400 | Edits CPU records. | 
| | IFCMC340 | IFCEP401 | Completes editing of CPU records. | 
| | IFCSUM40 | IFCEP104 | Summarizes CPU and inboard records. | 
| | IFCMCS40O | IFCEPO41 | Edits the CPU records summary. | 
| | IFCINS4O | IFCEPO72 | Edits the inboard records summary. | 
---------- }--------------}--~--------}----------------------------------------------- 
|Model 50 | IFCMC150 | IFCEP500 | Edits CPU records. } 
| | IFCMC250 | IFCEP501 | Completes editing of CPU records and edits | 
| | | | inboard records. | 
| | IFCSUM50 | IFCEP105 | Summarizes CPU inboard records. | 
| | IFCHCS50 | IFCEP051 | Edits the CPU records summary. | 
| | IFCINS5O | IFCEP052 | Edits the inboard records summary. | 
--------- }--------------}-----------}----------------------------------------------- 
{Model 65/67 | IFCMC165 | IFCEP650 | Edits CPU records. ' 
| (*) | IFCMC265 | IFCEP752 | Edits inboard records. | 
| | IFCMC365 | IFCEP651 | Continues editing CPU records. | 
| | IFCMC465 | IFCEP652 | Completes editing CPU records. | 
| | IFCSUM65 {| IFCEP106 | Summarizes CPU and inboard records. | 
| | IFCMcS65 | IFCEPO061 | Edits CPU records summary. | 
| {| IFCINS65 | IFCEPO72 | Edits inboard records summary. | 
| | IFCASROO (**) | IFCEP655 | Edits machine-check handler portion of CPU | 
| | | | records. | l 
| | IFCASRO1(**) | IFCEP656 | Edits channel-check handler portion of inboard | 
| | | | records. | 
~--------- }--------------4-----------}-----------------------------------—----------- 
|Model 75 | IFCMC175 | IFCEP751 | Edits CPU records. | 
| | IFCMC275 | IFCEP752 | Edits inboard records. | 
| | IFCMC375 | IFCEP753 | Completes editing CPU records. | 
on | | IFCSUM75 | IFCEP107 | Summarizes CPU and inboard records. { 
& | {| IFCMCS75 | IFCEPO71 | Edits CPU records summary. | 
| | IFCINS75 | IFCEPO72 | Edits inboard records summary. | 
|----~----- }-------------- f----------- frm nnn en : 
|Model 85 | IFCMC185 { IFCEP850 | Edits CPU records. | 
| | IFCMC385 | IFCEP851 | Completes editing of CPU records. | 
| | IFCMC485 | IFCEP852 | Edits inboard records. | 
| | IFCSUM85 | IFCEP108 | Summarizes machine-check handler records. | 
| | IFcMCcS85 | IFCEP081 | Edits and prints summary counters. | 
| {| IFCMC585 | IFCEP853 | Edits CPU record summary. | 
~--------- }--------------}-----------}------------------------=--------------------—- 
ueael 91 | IFCMC191 | IFCEP950 | Edits CPU records. : 
| | IFCMC291 | IFCEP952 | Edits inboard records. | 
| { IFCMC391 | IFCEP951 | Continues editing CPU records. | 
| {| IFCMC491 | IFCEP953 | Completes editing inboard records. | 
| | -IFCSUM91 | IFCEP109 | Summarizes CPU and inboard records. | 
| | IFCMCS91 | IFCEPO91 | Edits CPU records summary. | 
| | IFCINS91 | IFCEPO72 | Edits inkoard records summary. | 
ae ee Oe a Na er 
|(*)Except for modules IFCASROO and IFCASRO1, alli modules in this group have aliases of { 
| IFCxxx67, where xxx represent the fourth, fifth, and sixth characters in the module | 
ID. 
| (**)These modules occur only in systems having the machine-check handler and the chan- | 
nel check handler feature. | 
| (***)This is the module identification before it is link-edited onto the Link Library. | 
bea e te Ww cue a et a ee ae ee ee ee ae a ae ee ee em J 


eFigure 26. EREP Machine-Dependent Modules 


requested summary was obtained from the 
GETMAIN routine. 


Accumulation Input 


When an accumulation data set is the input, 
EREP minimizes the number of access cycles 
ky processing more than one record type on 
a pass if a summary was not requested or if 
the maximum 4K bytes of storage for a 


If the summary was requested or maximum 
storage was unavailable, the program first 
edits and prints OBRs, if requested. Since 
available space may be insufficient for an 


re 
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OBR summary, more than one summary pass may 
be necessary. After OBR processing is com- 
plete, INB and machine check records are 
processed in a single pass each. 


Control Module Subroutines 


The control module and the editing modules 
make use of the following subroutines, 
located in the control module, to perform 
I/O operations: 


XWRT PRT 
writes edited data, using BSAM, on the 
specified output device. Records are 
written in 120-byte blocks from the 
buffer XPRTBUF, also in the control 
module. 
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XRDDISK 
reads, using EXCP, a record from SYS1. 
LOGREC into the buffer XDADBUF, also 
in the control module. 


XWRIDISK 
writes, using EXCP, a record cf zeros 
on SYS1.LOGREC. ‘The buffer XDADBPUF is 
zeroed out by the editing module. If 
disk writing is prohibited, this rou- 
tine returns control immediately. 


XWRITOP 
writes, using WIC, messages to the 
operator. 


XACCSUM 
accumulates and summarizes records, if 
necessary. 


Chart 14. 
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Chart 15. 
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EREP - Input From SYS1.LOGREC Data Set 
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e Chart 16. EREP - Input From Accumulation Data Set 
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Chart 17. EREP - Accumulation Input - End of Data 
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Chart 18. EREP Termination 
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Chart 19. IFCSDROO - Editing SDRs 
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eChart 21. IFCMCHOO - Editing Inboard and CPU Records (Part i of 2) 
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Chart 22. IFCMCHOO - Editing Inboard and CPU Records (Part 2 of 2) 
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Loading the 2821 Generator 
Storage (IIEHUCSLD) 


The IEHUCSLD program reads records that 
contain user-specified character images, 
requests the operator to change the print 
chain or train, loads the images into 2821 
generator storage, and prints the images so 
that the operator can verify the operation. 
Options allow the user to specify folding 
or non-folding mode, permit him to use non- 
standard ddnames and to bypass the verifi- 
cation procedure. 


The IEHUCSLD program may be executed as 
an independent job step or it may be 
entered via the LINK or ATTACH macro 
instruction. In either case the user may 
specify alternate ddnames and bypass veri- 
fication procedures. Program flow is shown 
in Chart 23. 


PROGRAM FLCW 


When IEHUCSLD is given control it examines 
the parameter list to determine which (if 
any) option has been specified. If no 
option has been specified it assumes the 
VERIFY option. 


The next step is to determine whether an 
alternate ddanme is specified for either 
the input or printer data set. If an 
alternate name is specified, IEHUCSLD moves 
the specified name to the DCB; otherwise it 
moves the standard names. 


The program then initializes the printer 
DCB for use with the EXCP macro instruc- 
tion, and opens the input and printer DCBs. 
It checks to see that both DCBs are proper- 
ly open, then inspects the printer UCB to 
insure that the universal character set 
feature is available. 


If either DCB is not properly open, or 
if the universal character set feature is 
not available on the requested printer, the 
ddname specification (or other information 
in the DD statement) is incorrect. In 
either case, IfHUCSLD closes both DCBs and 
returns with a return code of 8. 


If both DCBs are properly open and the 
universal character set feature is avail- 
able, the IEHUCSLD program copies the 
printer unit name from the UCB into the 
operator message and print line texts, and 
prepares to read the four control records. 


IEHUCSLD uses the Read routine four 
times to bring the control records into 
main storage. When the first record has 
been read, there is some initial processing 
done before the normal processing takes 
place. 
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The initial processing includes a check 
for an asterisk in position 1 and a con- 
parison of the two type ID fields. The 
type ID is then copied into the operator 
message and print line texts, the mode 
option field is inspected, and the printer 
ccw is initialized (to folding or non- 
folding mode) accordingly. 


The normal processing is done for all 
four records. The images field is moved to 
an internal buffer, the record is sequence 
checked and its format is verified. Then, 
unless four records have been read, a 
branch is executed to the expansion of the 
READ macro instruction. 


If it finds an error in a control rec- 
ord, IEHUCSLD uses the WTO macro instruc- 
tion to issue message IEFH503I, the control 
card error message. It closes the DCBs, 
loads return code 8, and returns. 


When IEHUCSLD has processed all four 
records, it closes the input DCB and checks 
for the LOADONLY option. If the LOADONLY 
option is specified, the program branches 
to the EXCP macro expansion; otherwise it 
requests the operator to change the print 
chain or train. It issues message IEH500A 
and waits for the operator to reply with 
the type ID or ‘SKIP’. 

If the operator replies "SKIP", the 
IEHUCSLD program issues the no action mes- 
sage, IEH506I, closes the printer DCB and 
returns with code 0. 


If the reply specifies the type ID 
requested, IEHUCSLD uses the EXCP macro 
instruction to load the character images 
into 2821 generator storage, and waits for 
completion of the channel program. 


When completion of the channel progran 
is posted in the ECB, the IEHUCSLD program 
inspects the completion code bits to deter- 
mine whether a permanent error has occured. 
If so, and the error is a parity error, 
IFHUCSLD closes and reopens the printer DCR 
and retries the channel progran. 


If the error is a permanent error, but 
not a parity error, the program closes the 
printer DCB and returns with code 12. 


If the error is not a permanent error, 
but completion is not normal, or if the 
retry fails, IEKHUCSLD closes the printer 
DCB and returns with code 12. 


If the channel program is successfully 
completed, the IEHUCSLD program closes the 
printer DCB and checks for the LOADONLY or 
NOVERIFY option. If either option is spe- 
cified, the program writes message IEH502I 
to the operator to tell him that the images 


have been loaded, issues return code 0 and 
returns. 


If neither the LOADONLY or NOVERIFY 
option is specified, IEHUCSLD opens the 
printer DCB for BSAM. It skips the printer 
to the next page and prints a header line 
that specifies the unit, type ID, and mode 
(folding or non-folding). Then IEHUCSLD 
Spaces two lines and prints two 120 
character lines to display the images it 
has loaded into the 2821 generator storage. 


If the header line requires images that 
were not supplied by the user, and the 
reset block data check mode is specified in 
the printer DD statement, the IEHUCSLD pro- 
gram does not space two lines after the 
header. If the user does not specify reset 
block data check mode in his printer DD 


statement, the space will occur; in either 
case the images that were not supplied will 
print as blanks. 


When the three lines have been printed, 
IEHUCSLD skips the printer to the next page 
and tells the operator to check the images, 
using message IEH501A. 


The operator must reply, ‘OK" or "NG". 
If the reply is "NG* the images are printed 
once more, and the operator is again 
requested to check the images. A second 
*NG* reply causes the program to close the 
printer DCB and return with code 4. 


If the reply is ‘OK*, IEHUCSLD closes 
the printer DCB, loads return code 0, and 
returns. 
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Chart 23. 
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Writing Tape Labels (IEHINITT) 


The IEHINITT program provides the user with 
a convenient means of writing volume label 
sets on tapes to conform to Operating 
System/360 specifications. The program 
reads control cards, builds a parameter 
list, calls an SVC routine to write a tape 
volume lakel set, and informs the user of 
the result of the labeling attempt. 


Program Flow 


The general flow of the program and its 
relationship to the operating system are 
Shown in Figure 27. Charts 24 and 25 show 
more detailed flow. Chart 26 shows the 
logic of SVC 39, the tape-labeling SVC 
routine. 


Program Structure 


The program consists of four modules: 
IEHINITT, the control module; IGC0O003I, the 
svc 39 routine; IEHSCAN, the control state- 
ment scan routine; and IEHPRNT, the message 
writer. 


The Control Module (IEHINITT): The control 
module builds two DCBs (SYSIN and SYSOUT) 
for the tape-labeling operation and moves 


IEHINITT 
Control 
Statement 


DD Statements 


Figure 27. 


Writing Tape Labels 


the DCBs to the work area. It then links 
to the message writer (IEHPRNT) to write a 
header, and links to the control statement 
scan (IEHSCAN) to read a control statement 
into main storage. IEHPRNT then prints the 
control statement. Control cycles between 
IFHINITT and IEHSCAN until the parameters 
are analyzed or an error is detected. If 
there are no errors, IEHINITT builds an 
image of the tape label in main storage, 
and then builds a parameter list for the 
tape-labeling SVC by referring to the JFCB, 
TIOT, and UCBs for DD statement informa- 
tion. The symbolic link needed by the pro- 
gram to gain access to this information is 
the ddname, supplied in both the DD state- 
ment and the utility control statement. 
IEHINIIT then issues the SVC 39, invoking 
the tape-labeling routine. When control is 
returned, IEHINITT analyzes the return code 
and links to IEHPRNT to print the label or 
an error message. The process of building 
the parameter list, issuing the SVC, and 
interpreting the return code is repeated 
for each tape to be labeled. When the last 
tape has been labeled, IEHINITT returns 
ccntrol to the supervisor. 


The SVC 39 Routine (IGC00031I): The Svc 

routine writes the specified volume label, 
a dummy header label (HDR1 followed by 76 
EBCDIC zeros), and a tapemark on a desig- 


o) 


Before IEHINITT has gained control, information 
from the data definition (DD) statements has been 
entered in the task |/O table (TIOT) and job 

file control blocks (JFCB) 


© 


IEHINITT gains control and reads a control 
statement. The dd name from the control 
statement indicates which collection of tape 
drives to use from the TIOT 


@) 


A drive is selected and its relative position in 

the TIOT is described in the parameter list for 

the tape-labeiling SVC. The parameter list 

is built by extracting: 

a) the device type (dual-density, 7-track, or 
9-track) from the UCB 

b) the density for dual-density or 7-track frem 
the JFCB 


@) 


The SVC is issued and the tape label is written 


) 


The return from the SVC is analyzed and the result is 
logged. If the request being processed shows more 
tapes to be labeled, go to @). __ If another control 
statement is to be read, goto @). 
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nated drive. By issuing a GETMAIN, the 
routine obtains 204 + X bytes, where X is 
the amount by which the volume label 
exceeds the standard length of 80 bytes. 
This area is used for building a DCB, DEB, 
ECB, IOB, and a channel program, and also 
holds messages and labels. Upon entry to 
the SVC routine, register one contains the 
address of a 4-word parameter list: 


Word Bytes Contents 
0 0-1 x*co00* 


2 X"'O4* to rewind tape 
X*°06" to unload tape 

3 a binary number from 0 to n-1, 
where n is the number of UCB 
addresses in the DD entry por- 
tion of the TIOT indicating 
which device to use for volume 
mounting 


a pointer to an 8-byte area 
containing the ddname corre- 
sponding to the ddname in the 
DD entry portion of the TIOT; 
the ddname is left-justified 
and padded with blanks 


a pointer to one volume label 
image to be written on the 
tape 


the binary length of a volume 
label 

2 the binary number one 

3 command code for the control 
cCW to set mode 


The SVC routine extracts the UCB address 
from the DD entry portion of the TIOT. 
This UCB is checked to verify that the tape 
is not SYSIN or SYSOUT, that the tape is 
online and not scheduled to go offline, 
that the tape is not reserved, and that the 
data management count is zero. If a tape 
is already mounted on the device and its 
volume serial number is in the UCB, it is 
unloaded. After the volume label has been 
written and verified, the dummy header 
label and tape mark are written. If the 
tape is not to be unloaded, its volume 
serial number is left in the UCB. Ifa 
non-standard label was written, the pseudo 
volume serial number LGLOOO is left in the 
UCB. If an I/C error or a file-protected 
tape is encountered in the labeling rfro- 
cess, the operator is given one attempt to 
correct the situation. (He may strip off a 
few feet of tape or add the file protect 
ring.) When returning control to IEHINITT, 
the SVC routine issues a FREEMAIN to free 
the work area, and loads register 15 with 
one of the following return codes: 
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Code Meaning 


00 labeling successful 

04 operator has cancelled labeling 
08 unacceptable parameter list 

oc permanent I/O error 


The Control Statement Scan Routine (IEHS- 
CAN): This routine reads, using QSAM, con- 
trol statements, checks syntax, and returns 
to IEHINITIT an indication of the item 
scanned. IEHINITIT supplies a work area (on 
a fullword boundary) containing the DCB for 
the control statement data set, which is 
opened by IEHINIIT before calling IEHSCAN. 
IEHSCAN inserts the address of the end-of- 
file routine KEOF in the DCB and the EOF 
routine for IEHINIIT is restored when con- 
trol is returned to IEHINITT. After scan- 
ning a field from the control statement, 
IEHSCAN returns to IEHINITT the following 
information: 


e Register 1 points to the starting 
address of the field. 


e Register 2 contains the length of the 
field. 


e A setting of a byte, SWITCHRD, in the 
work area, as follows: 

Bit=1 Meaning 
Syntax error 
Bypass switch 
EOF 
Initial entry 
Command word 
Keyword 
Parameter 
Not used 


NSN EWN © 


Unlike other control statement fields, 
the owner name field (when enclosed in a- 
postrophes) is moved from the control 
statement image to the label image by the 
control statement scan routine. The owner 
name is considered to begin at the first 
byte following the first apostrophe; two 
consecutive apostrophes are considered a 
single embedded apostrophe and counted as 
one byte of a maximum of ten for the field. 
The scan is terminated when the count is 
exceeded or when a single (i.e., not fol- 
lowed immediately by another) apostrophe is 
encountered. 


The Message Writer (IEHPRNT): This routine 
writes, using QSAM, page numbers, headings, 
and messages. Upon entry to the message 
writer, register 3 contains the address of 
the message minus one. If a permanent I/C 
error is detected in writing the message, 
the one-byte switch SWITCH2 is set to X‘'01'" 
before control is returned and a code of 4 
is returned to IEHINITT in register 15. 


Chart 24. IEHINITT 
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Chart 25. IEHINITT (Part 2 of 2) 
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] Chart 26. SVC 39 Tape Label Routine 
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Dumping, Restoring, and Initializing 


Direct Access Volumes (IEHDASDR) 


The IEHDASDR program dumps, restores, and 
initializes direct access volumes according 
to parameters specified in control state- 


ments. The functions that may be specified 
are: 
e Dump. When the DUMP operation is spe- 


cified, the IEHDASDR program creates a 
copy (or copies) of the direct access 
volume on one or more tape or direct 
access volumes, or as a system output 
data set. 


e Restore. When the RESTORE operation is 
specified, the program copies "dumped" 
data from a tape volume to one or more 
direct access volumes, thus making one 
or more copies of the dumped volume. 


e Initialize. There are four initial- 
izing functions that may be specified: 


1. Specifying ANALYZE causes the pro- 
gram to perform a complete initial- 
ization of one or more direct 
access volumes. The program per- 
forms a surface analysis by 
inspecting each volume for defec- 
tive tracks, it obtains alternate 
tracks for all defective tracks, it 
formats acceptable tracks, and it 
constructs a volume label, volume 
table of contents (VTOC), and 
(optionally) an IPL program for 
each volume. 


2. Specifying FORMAT causes the pro- 
gram to perform all of the initial- 
izing functions (except surface 
analysis) for one or more volumes. 


3. Specifying LABEL causes the program 
to write a new volume serial (and 
optionally an owner name) ona 
direct access volume. 


4. Specifying GETALT causes the pro- 
gram to assign an alternate for the 
specified disk or data cell track. 


The user specifies the functions to be 
performed by writing control statements and 
placing them in the input stream data set. 
He must also supply DD statements defining 
the data sets, devices, and volumes 
required for the program, and may also spe- 
cify program parameters either in the EXEC 
Statement PARM field or in a parameter area 
(see the section “Auxiliary Parameters" in 
this publication). 
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The IEHDASDR program can perform certain 
functions concurrently on several volumes 
of the same type. The user can specify 
more than one volume in a DUMP, RESTORE, 
ANALYZE, or FORMAT statement; the program 
processes the volumes concurrently in the 
sense that I/O operations are overlapped. 
This type of concurrent processing is known 
as “making copies"; in the case of a dump 
or restore, there can be only one input 
volume, and the output volumes are copies 
of one another. In the case of an analysis 
or format, all volumes specified in the 
control statement are processed the same 
way, and if a new serial is specified all 
are given the same volume serial. In eith- 
er case, the program uses only one set of 
buffers and internal tables. 


The IEHDASDR program can also perform a 
Dump, Restore, Analyze or Format function 
concurrently on several volumes which may 
be of different types. The user specifies 
the same operation (e.g. DUMP,) on several 
successive control statements; if enough 
main storage is available for buffers and 
internal tables (a set is required for each 
Statement), and if enough I/O devices are 
available, the volumes will be processed 
concurrently. Concurrent in this sense 
(and as it is used in the remainder of this 
section) means that a processing routine 
will be reentered to process a different 
set of volumes when it waits for the conm- 
pletion of certain I/O operations, as well 
as when its processing of one set of 
volumes is completed. 


The IEHDASDR program may be executed as 
a job step, or it may be executed as a part 
of a program performing a job step. The 
user invokes the program by using IEHDASDR 
as the program name parameter in an EXEC 
statement, or by using it in the operand of 
an LINK or ATTACH macro instruction. The 
IEHDASDR program, which consists of an ini- 
tialization routine, a control routine and 
a set of functional routines, is entered at 
the Initialization routine (module IEH- 
DASDR). The Initialization routine obtains 
main storage for the common work area 
(Figure 28), initializes it according to 
any parameters passed from the caller, then 
uses the XCTL macro instruction to pass 
control to the Control routine (module IEH- 
DASDS). When it has performed the speci- 
fied functions, the Control routine returns 
control to the caller. 


The Control Routine (IEHDASDS) 


The Control routine is entered via an XCTL 
Or ATTACH macro instruction issued in the 
Initialization routine. The Control rou- 


tine uses the Scan routine to read control 
statements, and based on the specifications 
in the statements, the Control routine 
passes control to the appropriate function- 
al routine. (Control flow among the 
modules of the IEHDASDR program is shown in 
Chart 27.) When all statements have been 
processed, the Control routine issues a 
RETURN macro instruction. 


Initialization 


When the Control routine (Charts 28 and 
29) is entered, it uses the OPEN (type J) 
macro instruction to open the SYSIN (con- 
trol) and SYSCUT (message) data sets. It 
uses the LINK macro instruction to pass 
control to the Print routine (module IEHD- 
PRINT) which places a header record in the 
message data set, then uses the LINK macro 
instruction to pass control to the Scan 
routine (module IEHDSCAN). 


Output (Message) Buffer 
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Input (Control Statement) Buffer 


Function Queue (32 bytes) 


Scan Routine Work Area 


268 Switch 1! Pointer to Current Function Block 3 
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Figure 28. IEHDASDR Common Work Area 


Notes: The common work area resides in an 
area of main storage obtained via a GETMAIN 
macro instruction in the Initialization 
routine (module IEHDASDR). Aithough the 
names of most fields are self-explanatory, 
the following fields require further 
description: 


e SWITCHRD indicates the result of scan- 
ning a field of a control statement. 
When set to 1, the bits have the fol- 
lowing meanings: 


Bit 0 Syntax Error 

Bit 1 Bypass Switch 

Bit 2 End-of-Data, SYSIN Data Set 
Bit 3 Initial Entry 

Bit 4 Operation Field 

Bit 5 Keyword Field 

Bit 6 Parameter Field 

Bit 7 Reserved 


e Switch 1 indicates the status of the 
function queue. The bits have the fol- 
lowing meanings when set to 1: 


Bit 0 Reserved 


Bit 1 Parameter processed 

Bit 2 Multiple parameter possible 
Bit 3 Looking for IPL text 

Bit 4 Reserved 

Bit 5 TODD=cuu 

Bit 6 Concurrent processing 

Bit 7 Looking for operation field 


e Queue Code indicates the status of the 
function block. The bits have the fol- 
lowing meanings when set to 1: 


Bit 0 Entry active (this slot not 
available) 

Bit 1 Processing complete 

Bit 2 Processing includes copies 

Bit 3 Processing interrupted 

Bit 4 Processing started 

Bit 5 Reserved 

Bit 6 Reserved 

Bit 7 No main storage available 


Processing and Control 


The Control routine uses a scan routine 
to read and check the syntax of the control 
statements. Each time the Scan routine is 
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entered it checks one field; on the return, 
the Control routine validates the scanned 
field. 


If either the Control routine or the 
Scan routine encounters an error, the Con- 
trol routine places a message in the mes- 
sage data set, and starts to scan the next 
control statement. 


If the operation field (which specifies 
the function to be performed) is valid, the 
Control routine obtains main storage and 
constructs a function block (Figure 29). 
The function block specifies the function 
to be performed on a set of volumes, speci- 
fies the volumes, and contains Control 
information. If the statement specifies 
multiple volumes, the Control routine con- 
structs a copy block (Figure 30) for each 
additional volume. The copy blocks are 
chained to the function block; they contain 
specifications for the additional volumes 
in the set. 


DDNAME (FROMDD) 


Function SEQSW 2| Dump Output 1 
Device 
Pointer to First Copy Block 


Pointer to Input Device UCB 4 


Function - Dependent Area: 
Size and Format Variable 


Function Block Size 


Figure 29. IEHDASDR Function Block 


Notes: A function block is created, and 
enqueued in the function queue, each time 
the Control routine processes a control 
statement. The function block, which con- 
tains the information necessary to perform 
the function, is dequeuved (and its main 
storage released) when performance of the 
function is terminated. 


Although the names of most of the fields 
of the function block are self-explanatory, 
the following fields require further 
explanation: 
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e Function is a 1-byte field containing a 


code that represents the function to be 
performed. The codes (in hexadecimal) 
are: 


DUMP 10 
RESTORE 20 
GETALT 30 
LABEL 40 
ANALYZE 50 
FORMAT 60 


e SEQSW is a 2-byte field that indicates 


which keywords were present in the con- 
trol statement. If a bit is on, its 
meaning is as described below: 


Byte 1: Bit 0: FROMDD, TRACK, NEWVOLID 
Bit 1: TODD 
Bit 2: CPYVOLID, EXTENT 
Bit 3: BEGIN, VTCC 
Bit 4: END, IPLDD 
Bit 5: OWNERID 
Bit 6: FLAGTEST 
Bit 7: PASSES 


Byte 2: Bit O: PURGE 
Bits 1-7: Reserved 


e Dump Output is a i-byte field used dur- 


ing the performance of the DUMF func- 
tion to indicate the type of output 
device. The codes (in hexadecimal) 
are: 


Tape 00 
System Output FO 
Direct Access FF 


Return Point Address is a 4-byte field 
used during concurrent processing to 
contain the address at which the func- 
tional routine is to continue 
processing. 


Device Constants Address is a 4-byte 
field that initially contains the 
address of the control section IEHD- 
CONS. This control section contains 
information about each type of direct 
access device, and the field is updated 
to point to the IEHDCCNS entry pertain- 
ing to the device type involved in per- 
forming the function. 


e Function Dependent Area is a field 


whose format and size depend on the 
function to be performed. The format 
used in each case is shown with the 
description of the way the function is 
performed. 
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DDNAME (Copy Device) 
Pointer to Previous Block in Chain4 Address of Next Block in Chain 4 
| Ares of ce 4 : : 


4 Trailer Label Control 


Channel Program 


Figure 30. IEHDASDR Copy Block 

When it has constructed the function 
block and any necessary copy blocks, the 
Control routine enqueuves the function block 
in the function queue by creating a func- 
tion queue entry for the block. The func- 
tion queue is a FIFO queue; each entry 
points to a function block, and the Control 
routine attempts to initiate performance of 
functions in the order in which they are 
enqueued. When performance of a function 
on a set of volumes has terminated, the 
Control routine deletes the corresponding 
entry from the function queue, and pushes 
all lower priority entries toward the top 
of the queue. 


When it has enqueuved the function block 
corresponding to the first control state- 


ment, the Control routine initiates per- 
formance of the function. The routine 
loads the appropriate functional routine, 
loads registers with pointers to the common 
work area and the function block, then 
branches to the functional routine. 


Subsequently, when the Control routine 
initiates performance of a function, it 
must first determine whether the correct 
functional routine is loaded. If so, it 
loads the pointers and branches to the 
functional routine; if not, the Control 
routine deletes the old functional routine 
and loads the new one before branching to 
it. 


Once a functional routine has been 
entered, it may return to the Control rou- 
tine under the following circumstances: 


e The required main storage is not 
available. 


e An I/O operation has been started but 
not completed, and concurrent opera- 
tions can take place. 


e Performance of the function has been 
terminated, either because processing 
is complete or because an unrecoverable 
error has been encountered. In the 
latter case, the functional routine 
passes a return code greater than zero. 
The Control routine stores the highest 
return code and passes it to the user 
at the end of the run. 


The logic and processing performed in 
the Control routine when a functional rou- 
tine returns control to it is shown in 
Figure 31. 
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sss cu CU mc lena acme ide cai 
| Main Storage Not Available LYIYIYIYIY] TP Pb db bbb) ddd 
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| Processing Interrupted it ttt uveyivi gd bauded bua 
|------------------------------------------- === =f ft ttt ttt ttt ttt 
| Processing Complete itd bbdet eyyyeviyveyyyiyvqy| 

wana 3 $= == a5 ttt tt tt ttt tt tt tt 
| Current Entry is at Top of Queue INIYIYIY{Y] | | PYIYIYIYINPNININ] 
}-------- wa2----+------------------------------—--——--- t-t-t-+-4-4-+-4-+-+-+-+- HHA 
| Current Entry is Last in Queue 1 TYEYININ] | | LYIYININ|Y{YININ] 

PTO Pudubee dap vuDunedenap etn epanne-su=nDDUP TPS" SERRREDED RERERREERRRRERERERADN t-t-t-t-t-t-t-+- +++ +t 
| Additional Queue Space is Available id tdtettbtdttttbttbrebrdbrided 
rma nnn nn nnn nnn nnn nnn nnn nnn nnn nnn tate tandntatutatatadadedapeded 
| Next Entry Can be Processed 1 ttt bt eQininge dt bb bbb bl 
aan nr rn nnn ar nen t+-t-+-t-+-+-4-4-+-+-+-+-+-4-4-4- 
| End-of-Data on SYSIN 1 TYINLYIN{YIY] JYINIYIN|YIN|YIN| 
penn nnn nnn nn ere t-t-t-t-t-t-t-4-4-4+-+-+-+-+-+-4-4 
| DO ACTION NUMBER 141,71 9181912) 2)2)7)9)(81/9 18 491/849 | 
}------------~---~---- +--+ didid-dididid did ddd 


1. Initiate the function specified in the function block 
queue entry. 
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rresponding to the next 
2. Initiate the function specified in the function block corresponding to the entry 
at the top of the queue. 


3. Release the main storage obtained in the Control routine, close the SYSIN and SYS- 
OUT data sets, and return control to the caller. 


4. Mark the entry “No Main Storage Available" and do Action 2. 


6. Scan, and enqueue a function block for the next control statement. 
7. Do Actions 5 and 3. 

8. Do Actions 5 and 2. 

9. Do Actions 5, 6, and 2. 


te: The next entry can be processed if the functions are the same, the devices are 
eyailabie, and main storage is available. 


| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| 5. Free the main storage occupied by the function block and delete the entry from the| 
| function queue. | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
|N | 
l | 


wince 31. AIEHDASDR Control Routine Processing at Functional Routine Return 


Performing the Dump Function plete or because an uncorrectable I/C error 
makes it impossible to continue. 

When the Dump function is specified, the 

Control routine passes control to the Dump When it is entered, the Dump routine 

routine (module IEHDDUMP). This routine verifies that the input device is a direct 

(see Chart 30) initializes the input device access device, then issues a conditional 

and the output devices, then passes control GEIMAIN macro instruction to obtain main 


to the I/O routine (module IEHDEXCP). storage for a buffer and a work area. If 
Module IEHDEXCP performs the I/O opera- enough storage is not available, the rou- 
tions, except that when the output is a tine returns control to the Control 


SYSOUT data set, it uses module IEHDAOUT as routine. 
a sukroutine to format and write the dumped 


information. If the Dump routine is able to obtain 
the required main storage, it constructs an 
The dump routine returns control to the ECB, IOB, and DCB for the input device, and 
Control routine whenever processing is stores them in the function-dependent area 
interrupted to await completion of an I/0 of the function block (see Figure 32). It 
operation, and when the function is ter- uses the RDJFCB and OPEN (type J) macro 
Minated, either because the dump is conm- instructions to read the JFCB and open the 
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q 
3 
F 
4 
a 
E 


vToc data set, then sets the dump extents 
to correspond to the tracks specified in 
the function block by converting the track 
specifications to CCHH format and storing 
them in the limits record (Figure 33). If 
no dump extents are specified, the routine 
stores the CCHH of the first and last 
tracks on the volumes. 


4 4 
CCHH of First Track CCHH+1 of Last Track 
4 
CCHH of First Track on This Vol. 
8 ] eo N 2 
er ' Dump Device 
Restore Tape Identifier (con't.) Switch 
4 
Reel Check Alternate Track Information 
6| Dump 4 256 
Alt. Trk. Info (con't) | Formatted 
Switch 


Output and Input ECBs, 1OBs, DCBs, and 
Channel Programs to Write and Read Tape 


44 


52 


Restore Tape Identifier 


60 


68 


76 


Pointer to Read CCWs (Dump), or 


to First Restore Buffer 
ri 
Ptr. to Write and Read CCWs (Dump) 


4 
dete Second Restare Bulbine Pointer to Dump Count Field Buffer 
4 4 
Pointer fo Data Buffer Pointer to Unused Track Table 
4 
Temporary Work Area 


Figure 32. IEHDASDR Function Block -- 
Dump/Restore Area 


340 
348 


356 


Notes: This figure shows the format of the 
function-dependent area of the function 
block as it is used in the performance of 
the DUMP and RESTORE functions. Although 
most of the field names are self- 
explanatory, the following fields require 
further explanation: 


e The first seven fields in the area are 
the 24-byte limits record. 


e The reel check field contains the first 
4-bytes of the restore tape trailer 
lakel; it indicates whether the reel is 
the last reel required to complete the 
restore. 


e The Alternate Track Information field 
is extracted from the Format 4 DSCB of 
the primary output volume and contains 
two subfields: the first four bytes 
contain the CCHH of the next alternate 
track available, and the last two bytes 


contain the number of alternate tracks 
available. 


e The field containing the pointer to the 
first RESTORE buffer may also contain 
X*FF" in the high order byte. If so, 
it indicates that there are two RESTORE 
buffers, and the next field points to 
the second buffer. 


e The last 16 bytes of the area are pre- 
sent only for the Dump function. 
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Restore Tape Identifier 
(X'F4006Q.1663B24D") 


Notes: 1. Dump Switch settings: 
X'FO' = Full Dump 
X'00' - Partial Dump 


2. Device Type Codes: 
0 = 2321 
1 =2311 
2 = 2314 
3 = 2302 
4=2303 
5 = 2301 


20 


Figure 33. 24-Byte Limits Record 


If the output is a SYSOUT data set, it 
is the only output permitted; the Dump rou- 
tine performs no further initialization, 
but passes control to the I/O routine. If 
the output is to tape or direct access, 
there may be multiple output volumes, and 
further initialization must be performed 
for each of the output volumes. 


The routine constructs an ECB, IOB, and 
DCB for the first output volume, and stores 
them in the function block. If the volume 
is a tape volume, the routine opens the 
tape, and uses the EXCP macro instruction 
to write the limits record. If the volume 
is a direct access volume, the routine 
verifies that it is not System Residence, 
then uses the RDJFCB and OPEN (type J) 
Macro instructions to read the JFCB and 
ofen the VIOC data set. The routine then 
reads the Format 4 DSCB and saves the 
alternate track information so that it can 
be placed in the VTOC of the output volume 
when the dump is complete. 
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When it has initialized the first output 
volume, the Dump routine determines whether 
additional volumes have been specified. If 
So, it verifies that the next volume is of 
the same type, then initializes it. The 
procedure is the same as that used for ini- 
tializing the first volume, except that the 
IOB, ECB, and DCB are stored in the copy 
block associated with the volume. Any 
other output volumes are then initialized, 
one at a time. 


When all of the output volumes have been 
initialized, the routine passes control 
(via a LINK macro instruction) to module 
IEHDPASS to have the required security 
checks made. On the return, the Dump rou- 
tine reads and inspects the Format 5 DSCB 
from the input device. The routine 
extracts the available extent information, 
converts it to CCHH form, and builds a 
table of unused tracks. The I/O routine 
uses the table to insure that (unless the 
output is a SYSOUT data set), only those 
tracks that are in use (listed in the DSCB 
as "not available for allocation") will be 
dumped. When it has built the table, it 
passes control to the I/O routine. 


The function of the I/O routine is to 
read information from the input volume and 
(if the output volume is a tape or direct 
access volume) to write the information 
out. If the output is a SYSOUT data set, 
the I/O routine uses module IEHDAOUT as a 
subroutine to format and write the data. 


When the I/O routine has determined that 
a track is within the specified limits, and 
that it is either in use or that the output 
is a SYSOUT data set, it issues the EXcP 
macro instruction to execute a channel pro- 
gram that reads the data field of record 0, 
the count, key and data fields of record 1 
(if it exists), and the count fields of any 
additional records on the track. When it 
has issued the EXCP, the I/O routine 
returns control to the Dump routine, which 
in turn returns control to the Control rou- 
tine. When it is re-entered to continue 
performing the function, the I/O routine 
waits for the channel program to be 
completed. 


When the channel program is complete, 
the I/O routine determines whether the 
track contains a home address and only one 
record (RO), a home address and two records 
(RO and R1), or a home address and more 
than two records: 


e If the track contains only a home 
address and record 0, the routine 
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determines the output device type, 
writes out the contents of the record, 
and erases the remainder of the track. 


e If the track contains a home address, 
record 0, and record 1, the I/C routine 
determines the output device type, and 
writes out the contents of the records. 


e If the track contains a home address, 
record 0, record 1, and additional rec- 
ords, the I/O routine reads the key and 
data fields of record 2 and the count, 
key, and data fields of the additional 
records. It then determines the output 
device type, and writes out the con- 
tents of the records. 


If the output is a SYSOUT data set, the 
I/O routine passes control to module IEH- 
DAOUT, which formats and writes the track 
contents. 


If the output volume is a direct access 
volume, the I/O routine writes to every 
(primary) track on the volume. Those 
tracks on the input volume that are in use 
are copied onto the output volume; each 
track corresponding to an unused input 
volume track is formatted with a home 
address and record 0. The remainder of the 
track is cleared. 


If the output volume is a tape volume, 
the I/O routine writes a control record for 
each track on the input volume. The con- 
trol record contains the channel program 
used by the Restore routine to write one 
track; it is followed by the track image 
record, which contains the data field of 
record 0, and all fields of any other rec- 
ords on the track. 


At end-of-volume, a trailer record is 
written following the tapemark. The first 
4 bytes of this 24-byte record indicate 
whether this volume is the last volume of 
the restore data set. 


The I/O routine (module IEHDEXCP) 


returns control to the Dump routine under 


two conditions: 


If the Dump routine is performing func- 
tions concurrently, module IEHDEXCF returns 
control to it whenever processing is inter- 
rupted to wait for the completion of an I/0 
operation on a track that contains a home 
address and more than two records. In this 
case, the Dump routine returns control to 
the Control routine; when it is re-entered 
to perform the same function, the Dump rou- 
tine again passes control to the I/0 
routine. 
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be 


If the I/O routine has terminated its 
processing, either because the dump is com- 
plete or because of an unrecoverable I/O 
error, it returns control to the Dump rou- 
tine. In this case the Dump routine closes 
the input and output data sets, releases 
the main storage it obtained for buffers, 
places a completion message in the message 
data set, and returns control to the Con- 
trol routine. 


Performing the Restore Function 


When the restore function is specified, the 
Control routine passes control to the 
Restore routine (module IEHDREST), which is 
shown in Chart 32. The input to the 
Restore routine is a restore tape, which 
May have been created by performing the 
Dump function in this program, or in the 
IBCDMPRS program. A restore tape (see 
Figure 34) contains the information neces- 
Sary to make a copy of the direct access 


TAPE MARK 


LABEL IRG IRG 


(OPTIONAL ) 


CONTROL RCD. 
(TRACK 3) 


g a TRACK 3 IMAGE IRG 
c 


ONTR 
(Tract RCp 


Limits Record: 


24- BYTE 
LIMITS RCD. 


volume used to create it; the Restore rou- 
tine makes one or more such copies. The 
Restore routine returns control to the Con- 
trol routine when the restore is complete, 
when an uncorrectable error makes it 
impossible to continue processing, or when 
processing is interrupted while awaiting 
completion of an output operation. 


When it is first entered, the Restore 
routine attempts to obtain main storage for 
two buffers. If it is able to obtain 
enough storage for at least one buffer, 
processing continues; if not, the routine 
sets a switch and returns control to the 
Control routine. 


If storage is available for at least one 
buffer, the routine determines the validity 
of the output volume specifications. The 
output volumes must all be of the same 
type, but the system residence volume (s) 
May not be specified. 


CONTROL RCD. 


(TRACK 1) 


CK n) 
TRAILER RCD. 


TAPE MARK 


A 24-byte record containing extent limits and restore tape identifier, 


located after the initial tape mark on the first volume of the restore 


tape. 


Control Record: 


A variable-length record containing the channel! program required to 


write the associated track, located immediately before the track image 


record for the track. 


Track Image Record: A variable-length record containing the count, key, and data fields 
of the records on the track. 


Track Record: 


Figure 34. Restore Tape Format 


A 24-byte record containing, in the first 4 bytes, the reel number 
and termination code. 
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If the output volume specifications are 
valid and the volumes are available, the 
routine opens the input tape, checks the 
limits record to insure that the tape is a 
restore tape and that the volume used to 
create it is the same type as that speci- 
fied for output. 


If so, the routine builds an ECB, IOB, 
and DCB for each output volume. If there 
are multiple output volumes, the control 
blocks for the first are stored in the 
function block, and those for the addition- 
al devices are stored in the copy blocks. 


When it has constructed the control 
blocks, the routine uses the RDJFCB and 
OPEN (type J) macro instructions to read 
the JFCB and open the VTOC data set on each 
output volume, and uses the Password Pro- 
tection routine (IEHDPASS) to make the 
required security checks on the volume's 
data sets. 


The Restore routine uses the EXCP macro 
instruction to read the Format 4 DSCB from 
each output volume, then extracts and saves 
the alternate track information. Since the 
VTOC will be replaced with the VTOC from 
the volume used to create the restore tape, 
the alternate track information from the 
output volume must be placed in the new 
vTtoc. 


When initialization is complete, the 
Restore routine uses the EXCP macro 
instruction to read a control record and a 
track image record from the restore tape. 
The control record contains the channel 
program necessary to write the track image 
record to the output volumes. The Restore 
routine updates the channel program with 
the correct data addresses, then issues the 
EXCP macro instruction for each output 
volume. 


When it has issued the EXCP, the routine 
returns control to the Control routine. 
When it is re-entered to continue perform- 
ing the function, the routine waits for the 
output operations to be completed. When 
the operations are completed, the routine 
again reads from the restore tape and 
repeats the procedure. 


At end-of-volume, the routine reads the 
trailer record from the restore tape and 
determines whether there are additional 
tape volumes to process. If the first four 
bytes of the trailer record contain 
X'FFFFFFFE', the restore is complete. The 
routine updates the Format 4 DSCBs in the 
output volumes, places a completion message 
in the message data set, releases the main 
storage it obtained, closes the input and 
output DCBs, and returns control to the 
Control routine. If the trailer record 
does not indicate that the restore is con- 
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plete, the return issues the EOV macro 
instruction to have the next volume 
mounted, and continues processing. 


Performing the Analyze and Format Functions 


When the Analyze or Format function is spe- 
cified, the Control routine passes control 
to the Analyze/Format routine (module IEH- 
DANAL). This routine (shown in Chart 33) 
performs surface analysis and formatting 
functions for disk and drum volumes (or 
passes control to module IEHDCELL to per- 
form these functions if the device is a 
data cell drive) and passes control to 
module IEHDVTOC to construct and write IPL, 
volume label, and VTOC records. When pro- 
cessing is terminated, either because the 
function has been completed or because a 
computing system error has made it imposs- 
ible to continue, the routine returns con- 
trol to the Control routine. The routine 
also returns control to the Control routine 
during concurrent operations when proces- 
sing is interrupted for an I/C wait. 


Initialization 


When the Analyze/Format routine is first 
entered, it is given the address of the 
function block specifying the function to 
be performed. 


Note: The format of the function-dependent 
area of the function block, as is used in 
the performance of the Analyze and Format 
routines, is shown in Figure 35. 


If the function is to be performed on 
more than one device, copy blocks have been 
chained to the function block; the routine 
constructs an IOB, ECB, and DCB for each 
volume. It stores the blocks for the first 
volume in the function block, and stores 
the blocks for the additional volumes in 
the copy blocks. If a volume is new (unla- 
beled) the routine makes sure that the 
device containing that volume is offline, 
then uses the SVC routine to construct a 
DEB in protected storage, but performs no 
open. Otherwise, the routine uses the 
RDJFCB and OPEN (type J) macro instructions 
to read the JFCBs and open the VTOC data 
sets. 


When it has performed the open or con- 
structed the DEB, the routine uses the Pas- 
sword Protection routine to make security 
checks on the volume. Cn the return, it 
initializes a channel program to analyze 
and format or to format each device, then 
stores the channel program in the appropri- 
ate function or copy block. If the devices 
are 2321 Data Cell Drives, the construction 
and storing of the channel program, as well 
as the execution of the surface analysis 


and formatting procedures is performed in 
module IEHDCELL; if the devices are disks 
or drums, these functions are performed in 48 


module IEHDANAL. Owner Identification 


Surface Analysis and Formatting Procedures 


-- Disk and Drum Volumes 60 
Volume Serial 


64 Alternate Track Information 
The nature of the channel program used 

depends on whether a surface analysis or 

formatting operation is being performed, 72 

whether a flag test has been specified, 

whether multiple passes are to be made on 76 


: Number of Tracks for VTOC 
each track, and whether the volume is a Meee tie, aor COL 


disk or drum. The sequence of commands in 80) pointer to ANALYZE Bit Pattern Buffer or to FORMAT Work Areat 
each case is shown in Figure 36. Note that Bd 
the two Analyze/Format channel programs are Pointer to IPL Text (In Main Storage) 

CCHH of End of F 
two commands, as are the two Format Only eee 
channel programs. The first two commands ue Number of Passes Specified 7 Number of Passes Made 
are different because an unused disk has no 


9 
home addresses, and no successful search Home Address Buffer 


P| Ss j i 
could be made Al wae once defective Error Switch ! Number of Retries Made 2 


tracks on a drum are not flagged, rewriting 
Output DCB, IOB and ECB 


Relative Track Address of VTOC 


the home address will not destroy any pre- 104 
viously written flags. 


The first part of the Analyze/Format 
channel program is executed on each rass; 
maximum length ROs are written twice and 
read back twice, and the home addresses are 
read twice. If a flag test is to be done, 
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i | Channel Program T 


j*Write maximum length possible (full track). 
|2Transfer Ha into main storage and test for flags (no data transferred on other reads). | 


the data is transferred on the second home Figure 35. IEHDASDR Function Block -- 
address read, and the field is checked for Analyze/Format Area 
the presence of a defective track flag. 

{ er ie a ara Rg et ee Oe eg ef ee poe ge py a te ee ee ee ea 1 

4 | | Analyze/Format | Format only | 

) | pana mannan nena no Senn fanaa nnn CEI : 
| | Drum or | | | | 
| | Disk (no flag test) | Disk (flag test) | Drum | Disk | 
| }------------------------- fonnan nanan ene fanaa nnn {-—-----—---- : 
| | Write Ha | Search Ha | | | 
| | TIC *+8 | TIC *-8 | | | 
| | Write RO | Write RO1 | | | 
| | Read Ha | Read Ha | | | 
| All | Read RO | Read k0O | | | 
| Passes | Search Ha | Search Ha | | | 
| | TIC *-82 | TIC *-8 | | | 
| | Write RO | Write RO | | | 
| | Read Ha I Read Ha2 | | | 
| | Read RO | Read RO | | | 
[----------- bona enna fanaa nnn {—---—<-~=-—— +—----------- : 
| | Search Ha | Search Ha | Write Ha | Search Ha | 
Last | TIC *-8 |} TIC *-8 | TIC *+8 | TIC *-8 | 
| Pass | Write RO? | Write RO? | Write RO? | Write RO? | 
| Only | Read Ha | Read Ha? | Read Ha | Read Ha? | 
| | Read RO | Read k0 | Read RO | Read RO | 
pace eess== Sa sca a eas bee a ee eae fae apes pa ee eee ca taeiacies aaass 


hanes standard (8-byte) RO. | 


rigcee 36. Analyze/Format Channel Programs 
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The second part of the Analyze/Format 
channel program (which duplicates the For- 
mat Cnly channel program for the corre- 
Sponding device type) is executed only on 
the last pass. A standard (8-byte) RO is 
written, and in the case of a disk device, 
the home address is tested for flags. 


During concurrent operations, the rou- 
tine returns control to the Control routine 
when the EXCP macro instruction for each 
device has been issued; it is eventually 
reentered to wait for completion of a chan- 
nel program. 


When a channel program is completed, the 
Analyze/Format routine determines whether 
any errors have occurred. If not, and if 
there are other channel programs that have 
not keen completed, the routine enters the 
wait again. It repeats this procedure 
until either an error occurs, or until all 
channel programs have been completed. 


When all channel programs have been com- 
pleted, the routine determines whether 
additional passes have been specified. If 
so, it re-issues the EXCP macro instruction 
for each device and repeats the procedure 
until all required passes have been made. 


When the last pass has been made, the 
routine reinitializes the channel programs 
for each device so that they apply to the 
next track, and repeats the entire 
analysis/format procedure. 


Error Procedures -- Disk and Drum Volumes 


There are two classes of errors that can 
occur during a surface analysis operation: 
errors that indicate a failure of the com- 
puting system, and errors that indicate a 
defect in the volume being analyzed. Those 
errors that indicate machine malfunctions 
are handled ky the normal I/O Supervisor 
error routines. If such an error cannot be 
corrected, the Analyze/Format routine ter- 
minates the function, closes the volumes, 
and returns control to the Control routine. 
If the function being performed is the for- 
mat function, all errors arehandled in this 
manner. 


When a surface analysis is being rer- 
formed, however, a distinction is made 
between the two types of errors. The 
errors that indicate that a track is defec- 
tive, and are handled by the Analyze/Format 
routine, are Data Check and (for the 2314 
Direct Access Storage Facility only) Track 
Overflow.1 When such an error is encoun- 


10n the last “READ RO", the routine also 
handles a No Record Found/Missing Address 
Markers condition. 
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tered, the Analyze/Format routine retries 
the channel program until an error is 
encountered again or until the channel pro- 
gram has been retried ten times with no 
errors. If an error occurs the track is 
declared defective, and the routine places 
a message describing the defective track in 
the message data set. If the device is a 
drum, no alternate track can be assigned by 
the program, and the IBM Field Engineer 
should be notified. If the device is a 
disk, the Analysis/Format routine issues 
Svc 82 and the Alternate Track Assignment 
routine is used to assign an alternate 
track. If the track is in the alternate 
track area, however, no alternate will be 
assigned; the track will be flagged defec- 
tive to prevent its future assignment. 


When an alternate track is assigned, the 
Analyze/Format routine places a message 
describing the alternate track in the mes- 
Sage data set. 


Surface Analysis and Formatting Procedures 
~- Data Cell Volumes 


The surface analysis and formatting of a 
data cell volume is performed by module 
IEHDCELL, which is used as a subroutine by 
the Analyze/Format routine. Module IEHD- 
CELL writes a home address, a standard 
length (8-byte) RO, and a maximum length R1 
on each track of a cylinder, then reads 
each home address, RQ, and R1 back to check 
for errors. The channel programs used for 
writing and reading are as follows: 


writing Reading 
Write HA Read HA 
write RO Read RO 


write Count-Key-Data Read Count-Key-Data 
The routine repeats the procedure, 
cylinder by cylinder, until each track on 
the volume has been read and verified. 
When the analysis of a strip, subcell or 
cell is complete, the routine makes addi- 
tional (address compare) checks to verify 
correct positioning. 


Error Recovery Procedures -- Data Cell 
Volumes 


Most of the errors that may be encoun- 
tered while performing the surface analysis 
of a data cell volume are handled by normal 
I/O Supervisor error procedures, and if 
they cannot be corrected, the function is 
terminated. There are two exceptions to 
this procedure: 


e No Record Found and Missing Address 
Markers: The I/O Supervisor error 
recovery routine is used, but if the 
errors occur together, and no recovery 


is possikle, module IEHDCELL places a 
message describing the defective track 
in the message data set, and causes an 
alternate track to be assigned. 


e Data Check: If this error occurs, 
module IEHDCELL retries the channel 
program up to 113 times. If the chan- 
nel program is executed successfully 
once, the track is considered good. If 
no successful execution occurs the 
track is considered defective. In that 
case a message describing the defective 
track is placed in the message data 
set, and an alternate track is 
assigned. 


The alternate track assignment procedure 
is the same as that used for disk volumes. 
The alternate track area of the volume is 
checked first, and defective tracks found 
in that area are flagged. No alternate 
tracks are assigned to defective tracks in 
the alternate track area. If the defective 
track is not in the alternate track area, 
module IEHDCELL places a message describing 
the defective track in the message data 
set, issues SVC 82 to have an alternate 
track assigned, then places a message 
describing the alternate in the message 
data set. 


Supplying a VTOC and IPL Records 


When the last track on each device has 
been analyzed or formatted, the Analyze/ 
Format routine passes control to module 
IEHDVTOC (see Chart 34). This module con- 
structs and writes the IPL Bootstrap, IPL 
Text, VTOC, and Volume Label records. 


When it is entered, module IEHDVTOC 
determines whether it is to write an IPL 
record on the output volumes. If so, and 
if the IPL text is on external storage, the 
routine opens the appropriate data set and 
reads the text into main storage.? 


If it is to write an IPL program, the 
routine constructs two IPL Bootstrap rec- 
ords and writes them to records 1 and 2 on 
track 0 of each output volume. The IPL 
program itself is written on track 1 before 
the kootstrap records are written (if the 
devices are 2303s or 2311s) or on record 4 
of track 0, with the same channel program 
used to write the bootstrap records (if the 
devices are 2301s or 2314s). 


2The IPL program may be supplied in the 
input stream (in which case it is in main 
storage when IEHDVTOC is entered), it may 
be in a sequential data set, or it may be 
a member of a partitioned data set, e.g., 
member IEAIPLOO of SYS1.SAMPLIB. 


If no IPL program is to be written, 
module IEHDVTOC writes a program on record 
1 of track 0 that will cause the computing 
system to enter the wait state if an 
attempt is made to execute the IPL proce- 
dure using that volume. The format of the 
records is shown in Figure 37. 


Whether it writes an IPL progran or not, 
module IEHDVTOC constructs and writes a 
standard volume label and a VTCC. The 
standard volume label is written on record 
3 of track 0; it contains the volume serial 
provided by the user or (if none was pro- 
vided) the original volume serial. If an 
owner name has been supplied, the routine 
places it in the label; if not, the field 
remains blank. The VTCC constructed and 
written by IEHDVTOC consists of a Format 4 
DSCB, a Format 5 DSCB, and enough dummy 
(Format 0) DSCBs to fill out the VTCC. 


Performing the Label Function 


When the label function is specified, the 
Control routine passes control to the Label 
routine (module IEHDLABL). The Label rou- 


tine (Chart 36) replaces the volume serial 
and, optionally, the owner identification 
fields of the volume label. 


Track Standard 
Descriptor Volume 
Record Label 


Note: RJ for a non-IPL volume is a 24—byte record having the following 
format: 


PSW = X'000600000000000F' 
CCW1 X'03000000000000001 ' 
CCW2 X'00000000000000000' 


(NOP) 
(Dummy CCW) 


R1 for a volume that can be loaded contains a 24-byte IPL bootstrap 
record having the following format: 


PSW = X'0000000000000000' 
CCW1 X'06003A9860000060' 
CCW2 X'08003A9800000000' 


(Read Record 2) 
(Transfer to Record 2) 


R2 is always a 144-byte record having the following format: 


Seek IPL Track 
Search for IPL Record 
Repeat until found 
Read IPL Program 
Seek Address 

Search Address 


CCW1 X'07003AB840000006' 
CCW2 X'31003ABE40000005' 
CCW3 X'08003AA000000000' 
CCW4 X'0600000020000E29' 
Seek  X'00000000000' 
Search X'0000000101' 
101 bytes of zeros for padding 
Figure 37. Format of Track 0, Records 0 
and 1 


When it is entered, the routine identi- 
fies the device to be labeled and verifies 
that the device is a direct access device. 
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It uses the RDJFCB macro instruction to 
read the JFCB into a buffer in the 
function-dependent area of the function 
block (Figure 38). It then uses the OPEN 
(type J) macro instruction to open the VIOC 
data set. 


Owner Identification 


Volume Serial 


Buffer for JFCB and Volume Label 


IEHDASDR Function Block -- 
Label Area 


Figure 38. 


The routine reads the volume label (the 
data portion of record 3 of track 0) by 
issuing an EXCP macro instruction. The 
initial request causes the special End-of- 
Extent appendage to be entered; the appen- 
dage changes the extent limits in the DEB 
to permit access to track 0, and the volume 
label is brought into main storage. 


When the I/O operation is complete, the 
Label routine stores the new volume serial 
and, if one is provided, it stores the 
owner name. It uses the EXCP macro 
instruction to write the label, uses the 
Svc 82 routine to place the new volume 
serial in the UCB, places a message in the 
output data set, and returns control to the 
Control routine. 


Performing the GETALT Function 


When the GETALT function is specified, the 
Control routine passes control to the 
GETALT routine (module IEHDGETA). This 
routine (which is shown in Chart 37) uses 
the Alternate Track Assignment routine (SVC 
82) to assign an alternate track for the 
specified disk or data cell track. If the 
specified track is an assigned alternate 
track, another alternate track will be 
assigned in its place. No records will be 
transferred from the specified track to its 
alternate. If the specified track is an 
unused track in the alternate track area, 
however, no alternate will be assigned; the 
specified track will be flagged to prevent 
its future use. 


When module IEHDGETA is entered, it 
verifies that the specified volume is a 
disk or data cell volume, then uses the 
RDJFCB and OFEN (type J) macro instructions 
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to read the JFCB into the function- 
dependent area of the function block 
(Figure 39) and open the VTOC data set. If 
the open is successful, the routine checks 
to see that the specified track is not 
track 0 or does not contain system data 
such as a volume label or VTCC. 


CCHH of Specified Track : 


8 


RESERVED 


Buffer for 
JFCB and Format 4 DSCB 


IEHDASDR Function Block -- 
GETALT Area 


Figure 39. 


If the volume is not a disk or data cell 
volume, if the open was not successful, or 
if the specified track is either track 0 or 
the first track of the VTOC , the routine 
places an error message in the message data 
set, terminates the performance of the 
function, and returns control to the Con- 
trol routine. If the specified track is a 
part of the VTOC (other than the first 
track), the routine issues a warning mes- 
sage and assigns an alternate track. 


If the specified track does not contain 
a volume label or VTOC, the Control routine 
places a message describing the specified 
track in the message data set, and issues 
Svc 82 to execute the Alternate Track 
Assignment routine. 


On the return from the Alternate Track 
Assignment routine (SVC 82) the GETALT rou- 
tine places a message describing the 
alternate track assignment in the message 
data set, closes the VTOC data set, and 
returns control to the Control routine. 


IEFHDASDR Service Routines 


There are several service routines used by 
the IEHDASDR program in the performance of 
its functions: 


e IEHDMSGB, the Message Builder routine, 
is entered with a pointer to the corron 
work area and a number corresponding to 
the message. The routine selects the 
message from the message CSECT. 
(IEHDMSGS), then moves the message to 
the output buffer in the common work 


we 


area. Certain messages contain "empty" 
4 areas that must be filled in by the caller 
& of the Message Builder routine; when this 
is the case, the Message Builder routine 
loads a pointer to the empty area, and 
passes the pointer to its caller. 


continue processing. If the PURGE pa- 
rameter is not specified, and if an 
unexpired data set is encountered, the 
function in terminated. 


e IGG019P8, the End-of-Extent Appendage 
routine is entered from the Input/ 
Output Supervisor. The routine modi- 


e IEHDPRINTI, the Message Writer routine 
is entered with a pointer to the common 


work area (which contains the output 
kuffer and the address of the SYSOUT 
DCB). The routine uses QSAM to write a 
header record at the beginning of each 
page, a copy of each control statement, 
completion messages, error messages, 
and (optionally) the contents of a 
direct access device. 


IEHDDATE, the Date routine, is entered 
via a CALL macro instruction from the 
Message Writer routine. The Date rou- 
tine uses the TIME macro instruction to 
determine the date, and stores the date 
(in the form MM/DD/YY) in an 8-byte 
area furnished by the Message Writer 
routine. 


IEHDSCAN, the Scan routine, is entered 
via a LINK macro instruction issued in 
the Control routine. It reads a con- 
trol statement (if necessary) and per- 
forms a syntax check on one field, then 
stores the result of the scan ina 1- 
byte field (SWITCHRD) in the common 
work area. On the return, it passes 
the control routine the length of the 
field and a pointer to the beginning 
address of the field. 


IEHDPASS, the Password Protection rou- 
tine (Chart 38), is entered with: 1) 
an indication of the operation being 
performed, 2) an indication of whether 
the purge option was specified in the 
control statement, 3) a pointer to the 
function block, and 4) a pointer toa 
kuffer area for reading DSCBs. It uses 
the Cpen or Scratch routine to check 
the password required for access to 
each security protected data set 
against the password supplied by the 
operator. If an incorrect password is 
issued, or if no password is issued, 
the routine returns a condition code to 
its caller, which then terminates the 
function. In addition, the Password 
Protection routine determines whether 
there are any data sets on the output 
volumes whose expiration dates have not 
passed. If so, and if the PURGE param- 
eter is specified, it gives the opera- 
tor the opportunity to terminate the 
function or to override the expiration 
dates of all unexpired data sets and 


Build DEB for New Volume 


Assign Alternate Track 


Update UCB 


fies the extent limits and file masks 
in the DEBs for each direct access 
volume to be processed, to permit 
access to the entire volume. 


IGG019P9, the Abnormal-End Appendage 
routine, is entered from the Input/ 
Output Supervisor. It is used during 
performance of the Analysis function to 
bypass normal IOS Error routine proces- 
Sing of Data Checks for all direct 
access devices. 


IGCQ008B, the Alternate Track routine 

(Svc 82), is entered with a pointer to 
the parameter list shown in Figure 40. 
The routine has three basic functions: 


(1) It builds a DEB for handling new 
direct access volumes, 


(2) It assigns an alternate track for a 
specified (defective) track, and 


(3) It updates UCBs to reflect new 
volume serials or VTCC location 
changes. 


Pe [eaten | 


CCHH of Defective Track 
Ptr. to Alternate Track 
Information (GETALT) 


MBCCHRR of VTOC 


(if new volume) 


Figure 40. SVC 82 Parameter Lists 
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Chart 27. IEHDASDR Overall Flow 
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Chart 28. IEHDASDR Control Routine (Part 1 of 2) 
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Chart 29. 
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IEHDASDR Control Routine (Part 2 of 2) 
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Chart 30. IEHDASDR Dump Routine 
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Chart 31. 
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IEHDASDR EXCP Routine 
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Chart 32. IEHDASDR Restore Routine 
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Chart 33. 
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IEHDASDR Analysis Routine 
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Chart 34. IEHDASDR VTOC Routine 
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Chart 35. IEHDASDR Data Cell Analysis 
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Chart 36. IEHDASDR Label Routine 
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IEHDASDR SVC 82 Routine 
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Yes HA of Next 
Avail, Alt. 


Write 
(EXCP) 
HA and RO on 
Prt. Trk. 


Uncorrectab/2 
Error 


FY F2 
is 


Yes Specified 
Track an As- 
igned Alt 


H] H2 


Specified 
Track an As- Yes 


igned Alt? 
No (02) No 
Jl 
Flag the 
Track Alternate 
Defective Track 


Yes 


Yes 


Build 
DEB in 

Protected 
Storage 


Place Serial 


Set Nos, & TTR 
Return Code of VTOC in 
UCBs if 


Necessary 


Set 
Return Code 
= 12 


Set 
Return Code 
= 16 


Update 
Alt. Trk. 


Information 


This section of the manual describes the 
nine data set utility programs: IEBCOPY, 
IEBCOMPR, IEBGENER, IEBPTPCH, IEBUPDAT, 
IEBUPDTE, IEBISAM, IEBEDIT, and IEBDG. 
These programs are executed under the Oper- 
ating System/3600. For their operation, 
however, they require user-supplied control 
statements in the input job stream. 


IEBCOPY, IEBCOMPR, IEBGENER, and 
IEBPTPCH are designed as overlay programs, 
each consisting of three segments: the 
root segment, the control card analyzer 
segment, and the processor segment. The 
root segment alone is loaded initially; it 
links to the control card analyzer segment. 
When the control statements have been ana- 
lyzed, control is returned to the root, 
which links to the processor seqment. 


The data set utility programs use QSAM 
for both reading the SYSIN data set and 
putting out the SYSPRINT data set. Both 
data sets may have a blocking factor that 
is other than one. 


The storage requirements for buffers and 
tables are dynamically determined at execu- 
tion time to optimize space allocation and 
thus permit the data set utility program to 
take full advantage of any storage that is 
available. If more storage is requested 
than can be supplied by the Main Storage 
Supervisor routines, the task is automati- 
cally terminated. If, however, the request 
cannot be filled immediately because of 
priority scheduling within a multi-tasking 
environment, the execution of the utility 
program can ke delayed until its storage 
requirements are met. 


Updating Partitioned and Sequential 
Data Sets (IEBUPDTE) 


The IEBUPDTE utility program incorporates 
both IBM and user-generated source language 
modifications into sequential data sets or 
into partitioned data sets. The input and 
output data sets contain blocked or 
unblocked logical records of 80 bytes or 
less. 


The program can: 


e Add, copy, and replace members of data 
sets. 


e Add, delete, replace, and renumber the 
records within an existing member or 
data set. 


Data Set Utility Programs 


e Assign sequence numbers to the records 
of a member or data set. 


e Create a sequential master data set 
from an input partitioned data set, and 
vice versa. 


At the completion or termination of the 
program, the highest return code encoun- 
tered within the program is passed to the 
calling program. The utility program can 
also produce a message data set containing 
a listing of the contents of the output 
data set, the control statements submitted 
to the utility program, and, if applicable, 
error messages. 


Data definition (DD) statements needed 
to run the program are as follows: 


e SYSUT1, which defines the old master 
data set (sequential or partitioned). 


e SYSUT2, which defines the new (updated) 
Master data set (sequential or 
partitioned). 


e SYSIN, which defines a sequential data 
set containing the transactions to be 
applied to the old master data set. 


e SYSPRINT, which defines a sequential 
data set containing either changes to 
the old master or contents of the new 
master, as well as utility control 
Statements used and any error messages 
generated. 


PROGRAM STRUCTURE 


The program consists of three segments (or 
load modules): the root segment 
(IEBUPDTIE), the control card analyzer seg- 
ment (IEBASCAN and IEBBSCAN), and the ini- 
tialization module (IEBUPNIT). 


The Root Segment 


The main functions of the root segment are 
the processing of records and the printing 
of messages. The segment contains four 
control sections (CSECTs): IEBUPDTE, IEBU- 
PLOG, IEBUPDT2 and IEBUPXIT. The following 
text discusses the functions of each CSECT. 


e IEBUPDTE receives initial control from 
the supervisor, obtains storage for the 
communication region IEBUPCON, opens 
the SYSIN data set, and passes control 
to module IEBUPNIT for initialization. 
For writing a header message on the 
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SYSPRINT output device, CSECT IEBUPDIE segment: IEBASCAN and IEBBSCAN. The fol- 
passes control to CSECT IEBUPLOG. lowing text discusses the functions of each 
After the return (of control) from CSECT. 


CSECT IEBUPLOG, CSECT IEBRUPDTE gives 
control to CSECT IEBUPDT2 to begin the 
actual processing of records. 


IEBUPLCG is a closed subroutine, which 
writes messages and records on SYS- 
PRINT. The first execution of IEBUPLOG 
opens SYSPRINT and the last closes it 
and returns control to the supervisor. 


IEBUPDT2, the heart of the progran, 
opens the old and new master data sets, 
reads, processes, formats and writes 
the output records, and stows member 
names if the new master is partitioned. 
(Note: Prior to each writing of a rec- 
ord on SYSUT2, module IEBUPDT2 checks 
the field TOTALSW in the region IEBUP- 
CON to determine if a user-totaling 
exit is to be taken. If so, a parame- 
ter list address is loaded into regist- 
er 1, and an exit is made to the user 
routine. When the user routine returns 
control to module IERUPDT2, a return 
code estaklished by the user routine is 
checked, and the action taken is as 
described in Appendix B.) If user 
labels are to be processed on either 
SYSUT1 or SYSUT2, CSECT IERUPDT2 passes 
control to module IERUPXIT through data 
management routines during open, close, 
or end of volume processing. CSECT 


e IEBASCAN scans and analyzes control 


statements and sets appropriate flags 
in the region IEBUPCON. CSECT IEBASCAN 
gives control to CSECT IEBUPLOG to 
print a copy of the control statement. 
To scan the individual parameters of 
each control statement, CSECT IEBASCAN 
gives control to CSECT IEBBSCAN with a 
doubleword parameter list, located at 
address STOREG in the communication 
region. For the reading of a control 
statement continuation card, CSECT IEB- 
BSCAN gives control to CSECT IEBUPDT2. 
The first word in the list is the 
length of the last parameter analyzed 
by CSECT IEBBSCAN. The last word con- 
tains a pointer to the same parameter's 
location in a buffer area, SWITCHRD. 


IEBBSCAN, which is a closed subroutine, 
receives control from CSECT IEBASCAN 
and returns control either to CSECT 
IEBASCAN or to CSECT IEBUPDT2 (for 
reading another control card). CSECT 
IEBBSCAN scans the individual parame- 
ters on each control statement. If di- 
agnostic messages are required as a 
result of the scanning, control is 
given to CSECT IEBUPLO. 


IEBUPDT2 passes control to the segment 
IEBASCAN to scan and analyze control 
statements, and to CSECT IEBUPLOG to 
log messages and records on SYSPRINT. 


Initialization Routine Module 


There is one module in this group. It is 
described in the following text. 


e IEBUPXIT is the module containing the 
program*s exit routines. For each of 
the three DCBs (SYSIN, SYSUT1, and SYS- 
UT2), this module contains an entry 
point for each of the following closed 
subroutines: DCB exit, header-label | 
exit, trailer-label exit, SYNAD exit, 
and end-of-data exit (there is no end- 
of-data exit for the SYSUT2 data set). 


e IEBUPNIT is the initialization module. 
This module is a closed subroutine that 
receives control from CSECT IFBRUFDTE 
for the purpose of initializing the 
region IEBUPCON, analyzing the parame- 
ters on the EXEC card. 


PROGRAM FLOW 
The Control Card Analyzer Segment 
Figure 41 shows the overall flow of the 
program; more detailed flow is shown in 
Charts 40, 41, and 41.1. 


The main functions in analyzing control 
cards are performed by two CSECTs in this 


104 


os 


IEBUPDTE 


Get IEBUPCON 
Storage using GETMAIN 


macro instruction, 


Open SYSIN. 


JEBUPXIT IEBUPDT2 
Program exits 


(DCB, labels, EOD, Open data sets. 
SYNAD). Process requests. 


JEBUPLOG 


Print copy of 
Control statement. 


IEBASCAN 


Analyzes Control 
statements. Sets 


flags in IEBUPCON. 


IEBUPLOG 


Write Parameter 


IEBBSCAN 


Scan card parameters. 
Sets switches in 


SWITCHRD. 


Diagnostic messages. 


eFigure 41. IEBUPDTE Overall Flow 


PROCESSOR DATA FLOW 


Figure 42 indicates the paths taken by data 
from SYSUT1 and SYSIN. The following is a 
breakdown of data flow within the processor 
(IEBUPDT2) according to the type of run: 
NEW or MCD. 


NEW: This type of transaction involves 
reading data from SYSIN and writing it on 
SYSUT2 and (if specified) on SYSPRINT. 
Logical records are read in turn from SYSIN 
into the input buffer at SWITCHRDt1; rec- 
ords are then stacked in the SYSUT2 output 
buffer at NMWRITEP until the desired block- 
ing factor is reached. A physical record 
is then written on the new master (SYSUT2). 
This process is repeated until SYSIN has 
been exhausted. If the SYSUT2 data set is 
partitioned (as indicated by the NAME key- 
word) the memker name is stowed. 


MOD: This type of transaction invclves 
reading data from SYSUT1 (the old master 
data set) and SYSIN, merging them as indi- 
cated on function and detail statements, 
and writing the resultant data on SYSUT2. 
The updated master is written on SYSUT1 
only when UPDATE=INPLACE is specified. 


IEBUPNIT 


Initialize [EBUPCON, 


JIEBUPLOG 


Open SYSPRINT. 
Write header 
message. 


Analyze EXEC Card. 


IEBUPLOG 


Write Records, 
and messages. 


Close SYSPRINT. 


IEBUPDT2 


Read continuation of 
Control statement. 


e For a REPRO run, a physical record is 
read from SYSUT1 into the buffer 
OMREADP, logical records are then moved 
individually to OMINAREA for inspection 
and then to the output buffer NMWRITEP 
until the desired output blocking fac- 
tor is reached; the output record is 
then written on SYSUT2. 


e For an ADD run, records are read from 
SYSIN and are stacked in the output 
buffer NMWRITEP until the desired 
klocking factor is reached. The output 
record is then written on SYSUT2. If 
the data set is partitioned, the member 
name specified is stowed in the direc- 
tory of the new master. If numbering 
of records is specified, it is per- 
formed in the input buffer, SWITCHRD+1. 


e For a REPL run, the flow is similar, 
except that the new data from SYSIN 
replaces the member specified. Number- 
ing, if specified, is performed in the 
input buffer SWITCHRD+1. 


e For a CHANGE run, which operates within 


a data set or member of a partitioned 
data set, records may be changed, 
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deleted, numbered or added, depending 
on the detail statements and data cards 
following the change statement. When 
one of these types of statements 

(DELETE, NUMBER, or data ) has been 
read from SYSIN into the buffer 
SWITCHRD+1, a record is read from the 
old master (SYSUT1) into the buffer 
OMREADP and is processed as follows 
(see also Figure 42). 

1. A logical old master record is 
moved from the buffer OMREALDP to 
CMINAREA, and its sequence number 
(CM) is compared against SEQ1, if 
number or delete is in effect, and 
otherwise against the SYSIN record 
sequence number. 


2. If OM is less than SEQ1, the old 
master logical record is moved to 
the output buffer NMWRITEP, and 
the next old master record is 
moved into OMINAREA. 


3. If SEQi is less than or equal to 
CM, and OM is less than or equal 
to SEG2, the old master is 
updated: 4. 


e If the old master logical record 
is to be deleted, the next old 
master logical record is moved 
to overlay it in OMINAREA. 


e If data is to be inserted, (if 
the SYSIN sequence number is 
less than OM) the SYSIN data 
statement in SWITCHRD+1 is re- 
numbered if necessary and moved 
to the output buffer NMWRITEP, 


and the next SYSIN record is 
read. If OM equals the SYSIN 
sequence number, the SYSIN rec- 
ord replaces the old master 
record. 


e If the SYSIN sequence number 
equals OM and COLUMN UPDATE was 
specified, the portion of the 
record in OMINAREA not to be 
updated is moved to its corre- 
sponding relative position in 
the buffer SWITCHRD+1, this 
updated record is renumbered if 
necessary and then moved to the 
output buffer NMWRITEP, and the 
next SYSIN and old master rec- 
ords are read. 


e If the old master record is to 
be numbered, the indicated 
sequence number is stored in it, 
and the updated master record is 
moved to the output buffer 
NMWRITEP. The next old master 
logical record is then moved 
into OMINAREA. 


When OM is greater than SE(Q2, 
IEBUPDTE checks to see that record 
SEQ1 was actually processed 
(deleted or numbered), if it was 
not, an error message is written 
and the member update terminates. 
If it was, the next record from 
the old master is moved into 
OMINAREA, and the next record from 
SYSIN is read into SWITCHRD+1. 
Processing of the previous number 
or delete statement is considered 
finished. 


Control Statement Analysis (IEBASCAN) 


; Pre-Processing Initialization (IEBUPDTE, 
; |EBUPNIT) 


These modules analyze 
parameters from 


1EBBSCAN scans 
a command word 
or keyword 


./ ADD NEW=PO SWITCHRD+1 
./ ADD NEW=PO 


Keyword or 
command word 
analysis routine 
primes work area 
for transaction 


Function or detail! 


EXEC Miatement,<nel statement from SYSIN 
, 


q SYSIN (changes to master) main for IEBUPCON 


SYSPRINT (messages and work area, clear 
statements) switches, prepare to 
SYSUT2 (new master) open data sets 
SYSUTI1 (old master) 


EXEC PGM=IEBUPDTE 


NEW, MOD 
PARM= { INHDR 
INTLR 


COMDTAB 


Processor (IEBUPDT2) 
OPENCHK checks 
for open errors - 
DSORG, blocking 
blocksize, user 
header label, return 


code; also gets main 


for buffers OPRLUP uses 


keyword or 
command word 
to look up 
address of 
analysis routine 


Buffer 
READOM OMREADP 
reads old 
master 


(MOD run only) 


NOTSHORT 
moves logical 
record to 
temporary area 


Program exits as required (IEBUPXIT) 


Message Log = also opens SYSPRINT DCB, spaces, prints 
header, etc. (IEBUPLOG) 


& Buffer 


SWITCHRD+1 OMINAREA 
Data Card 


(SYSIN) 
(If NEW run, SYSIN 


is sole input) 


Messages are built by passing a message number (3 here) 
and branching to MSGSTART 


For COLUMN 
UPDATE, 
WRITEREP moves 
unupdated part of 
record onto data 
card image when 
SWITCHRD+1 
equals OMINAREA 


——> MSGSTART 


BAL GR6 ,MSGTEST 


MSGTEST 


scans table When message number 

for message (3) is found, its address 

neinset (MSGSTART+8) is 
added to displacement 
factor (D3) to form 
address of message 


4 TESTLIST moves old 
builder 


TEST LIST moves card record directly to 
image to buffer for buffer if no update 


INSERT or REPLACE needed; OMINAREA 
when SWITCHRD+1 < SWITCHRD+1 
< OMINAREA 


MSGnnBLD 
(MSGO3BLD here) 
sets up message 
text address and 
size from tables Message Table 


= ee 
Pepe 
MSGWRTE tacks 


LOGOUTAR message number 
on text, moves 
to buffer 


Buffer 
NMWRITEP 


NMLSTWRT 
writes the 
updated 
record 


WRITELOG Header 
writes message 
or header 


& eFigure 42. IEBUPDTE Principle of Operation 
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eChart 41.1. IEBUPDTE (Part 3 of 3) 
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Copying and Merging Partitioned 
Data Set Members (IEBCOPY) 


The IEBCOPY program reproduces all or 
selected memkers of a partitioned data set. 
During the copy operation, physical data 
set compression (in-place recovery of unus- 
able partitioned data set space) can occur 
Since only the currently active members are 
processed. In addition, this program may 
be used to merge members from one data set 
into an already existing data set. 


Input to the IEBCOPY program must be a 
partitioned data set. The data set must 
reside on a direct access device and be 
contained within one physical volume. The 
input records can be U, F, or V format. If 
F or V format, they can be blocked or 
unblocked. Keys, relative track address 
pointers (TTRNs) within the directory, and 
note lists are permitted. 


The output of the IEBCOPY program is 
also a partitioned data set. It must 
reside on a direct access device and be 
contained within one physical volume. 


PROGRAM STRUCTURE 


The program (Figure 43) consists of three 
segments: the root segment, the control 
card analyzer segment, and the processor 
segment. 


The Root Segment 


The root segment initializes the progran. 
It consists of routine IEBCOPYA. 


IEBCOPYA 
stores optionally specified data 
definition (DD) names in a common 
table area for later insertion into 
their corresponding data control 
blocks (DCB) and inserts an optionally 
supplied initial page number into the 
page line to be written on the system 
print (SYSPRINT) data set. 


The Control Card Analyzer Segment 


The control card analyzer segment, 
IEBCOPYC, reads and processes the control 
cards. It consists of two routines: ANALY 
and ACTCCS. 


ANALY 
calls ACTCCS to process the control 
cards. Based on the parameters sup- 
plied in the control cards the ANALYZ- 
ER sets switches and builds parameter 
tables. 


ACIcCS 
opens SYSIN; reads the control cards 
and passes the location, length, and 
identification of the parameters to 
the ANALY routine; and then closes 
SYSIN. 


The Processor Segment 


The processor segment, IEBCOFYD, performs 
the copying operation. It consists of nine 
routines: MAIN, BDIF, REJECT, TOTAL, 
FIRST, REBLOCK, SETOPSWO, EOD, and CCMREAD. 


MAIN 
saves the length of the member name 
table and performs initialization to 
force the reading of the entire input 
directory if member exclusion is 
requested. This routine also opens 
the input data set (SYSUT1) for read- 
ing by means of BPAM and determines, 
during the DCB exit, whether a total 
or a selective copy is requested. If 
a total copy is requested, the DCB pa- 
rameters are saved and the accessing 
method (BPAM) is changed to BSAM to 
allow the directory to be read. 


BDIF 
employs user-supplied member names and 
aliases to extract the corresponding 
entries from the input directory when 
an inclusive copy is requested. 


REJECT 
compares all the names in the input 
directory against the list of user- 
supplied names when an exclusive copy 
is requested. If a match is obtained, 
the corresponding member is not 
processed. 


TOTAL 
reads the input directory a block at a 
time into a buffer, calculates the 
length of the table required to store 
the directory entries, requests 
storage for the table, and rereads the 
input directory (exclusive of user 
data) into the table. At the conclu- 
sion of TOTAL, the input buffer is 
released and the address and length of 
the table is saved. 


FIRST 
tests for TIRNs in the user data field 
of the directory and reads the note 
list, (if one exists) into the note 
list buffers. (See the publication, 


IBM System/360 Operating System: 


Supervisor and Data Management Ser- 
vices, Form C28-6646 for a description 


of note lists.) Then, except for the 

compress function, the routine reads a 
normal record. For the compress func- 
tion, this routine then gives control 

to the COMREAD routine. 
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REBLOCK 
initiates read and write operations as 
required by the status of the in/out 
buffer and supplies the move (HMOVE) 
subroutine with the logical record 
length and the "from" and “to" 
addresses. 


SETOPSWO 
writes the member record (in original 
form, reblocked, or as an update note 
list) on the output data set (SYSUT2). 
(For the compress function, this rou- 
tine is not used. The COMREAD routine 
does the writing of records in this 
case.) 


EOD 
stores the required data in the output 
directory (member names, aliases, user 
data, etc.). 


COMREAD 
performs the reading and writing 
operations when the compress function 
is specified. If note lists (records 
which contain pointers to blocks 
within a given member of a partitioned 
data set) are present, this routine 
will update them. The routine also 
reads and writes the member records 
(of a PDS) one track at a time and 
updates the TTRNs of a user data field 
when necessary. 
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Figure 43. Overlay Structure of the 
IEBCOPY Program 


PROGRAM FLOW 


Charts 42 and 43 show the flow of control 
through the program. After the program is 
entered, it sets switches, assigns data 
areas, and opens SYSPRINT. The header line 
is written on SYSPRINT at this time using 
the optionally supplied initial page 
member. 


The control card analyzer routine picks 
up the control statements from SYSIN and 
places them in tables within the IFBCOPY 
program. 
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A test is then made to determine if an 
exclusive copy was requested. For an 
exclusive copy, the user lists the names of 
the members that are not to be copied. The 
input data set directory is then read to 
determine the names of the members that are 
to be copied. If an inclusive copy is spe- 
cified, all members listed are copied. 


Next, the input data set (SYSUT1) is 
opened. If a total, an exclusive, ora 
compress copy is to be performed, the DCB 
parameters are saved and the basic sequen- 
tial access method (BSAM) is used to read 
the directory. For the compress function, 
storage areas will also be allocated for 
use as buffers. Once the directory is read 
and all the entries are stored in a table, 
the access functions are performed either 
by using BPAM (for all but the compress 
function) or by using the XDAP (execute 
direct access program) macro instruction 
(for the compress function). Fora 
description of the XDAP macro instruction, 
see the publication IBM System/360 Opera- 


ting System: System Programmer's Guide, 
Form C28-6550. 


The output data set is then opened and, 
during the DCB exit, the DCBs of the input 
(SYSUT1) and output (SYSUT2) data sets are 
checked for valid reblocking requests. 


For a valid reblocking request, switches 


are set to establish a linkage to the 


reblocking routine. Space for the in/out 
buffer is also allocated at this time. If 
there is to be reblocking, a second buffer 
(in/out) is obtained. The length of the 
in/out buffer is equal to the input block 
size plus the key length. 


The program is now ready for the names 
of the members that are to be copied. If 
the copy is to be either total, exclusive, 
or compress, the entire directory has 
already been read and saved. If the copy 
is inclusive, however, the member names and 
aliases which were provided by the user in 
the control statements and the correspond- 
ing entries are extracted from the directo- 
ry at this time. 


Directory entries, related to the remn- 
bers that are to be copied, are sorted and 
grouped by member name and physical disk 
address (ITR). A member name precedes all 
its aliases. If member exclusion is 
requested, the names in the directory are 
compared against the user-supplied names. 
When a match occurs, that member is not 
processed. 


The user data field for the member name 
extracted from the input directory is 
interrogated. If the user data field con- 
tains note list pointers, a note list buff- 


er is allocated and the note list is read 
to determine its length. 


After the note list (if one exists) is 
read, the next processing steps depend upon 
whether the compress function has been 
specified. 


Copying Without Data Set Compression 


If data sets are to be copied without conm- 
pression, a physical record is read into 
the in/out buffer. If reblocking is 
requested, a reblocking routine affects the 
new block size. The HMOVE subroutine is 
used to transfer logical records from the 
in/out buffer to the reblocking buffer from 
which the new block is written. When 
reblocking is not requested, physical rec- 
ords are written directly from the in/out 
buffer. 


Before writing records for which 
reblocking has not been requested, the 
track address (TTR) for each physical rec- 
ord is compared to the entries within the 
note list. If a match occurs, a switch is 
set to indicate that pointers have been 
found that will require updating. After 
each physical record is written, the track 
address pointer (TTRN) for the output rec- 
ord is noted. This new (output) pointer 
replaces the former (input) pointer in 
either the directory entry or the note list 
(or koth) depending on where it appeared in 
the input. 


When the end-of-data for a member is 
reached, the member name and all aliases 
pertaining to that member are stored in the 
output directory. If the member name table 
indicates that more members remain to be 
copied, the copying process resumes. If 
the member name table is exhausted, job 
termination is initiated; registers are 
restored, a termination (normal or abnor- 
mal) message is written onto SYSPRINT, the 
proper return code is set, and control is 
returned to the control program. 


Copying With Data Set Compression 


When data set compression has been speci- 
fied (by the PARM = COMPRESS parameter on 
the EXEC control card), the COMREAD routine 
first uses a subroutine to convert the 
relative track address of a member record 
to an actual track address. Then the util- 
ity program obtains the blocksize (from the 
data set parameters) and uses the XDAP 
macro instruction to read the record into a 
buffer. The actual number of bytes read 
into the buffer is calculated from the 
residual byte count appearing in the chan- 
nel command word. If the record contains 
TIRNs or is a note list, an indicating 
switch in the buffer table is set. After 
all records on a track have been read and 
inspected, they are written on the output 
data set (SYSUI2). When all the records of 
a member have been written, any TTRNs in 
the directory and any note lists are 
updated. Processing then continues as 
described for copying without the compress 
specification. 
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Chart 42. IEBCOPY - Copying and Merging Partitioned Data Set Members (Part 1 of 2) 
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IEBCOPY - Copying and Merging Partitioned Data Set Members (Part 2 of 2) 
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Comparing Records (IEBCOMPR) 


The IEBCOMPR program compares either two 
sequential or two partitioned data sets at 
the logical record level. With one excep- 
tion, data sets containing records greater 
than 32,756 bytes in length are compared at 
the physical record level. The records 
being compared can be U, F, V, or VS for- 
mat. F, V, and VS format records may be 
either blocked or unblocked. For parti- 
tioned data sets, VS format records are not 
compared. If keys are present they are 
compared. 


The utility program will use either QSAM 
(move mode) or BSAM processing to compare 
the records, depending on the following pa- 
rameters describing the records of the data 
set: RECFM, logical record length, pre- 
sence of record keys. (See Table 1 for 
details.) 


All user header and trailer labels are 
compared unless control statements indicate 
otherwise. The program prints the labels 
if they are unequal. Optional user exits 
are provided so that the user can process 
his own labels. 


PROGRAM STRUCTURE 


The IEBCCMPR program (Figure 44) consists 
of three segments: the root segment, the 
control card analyzer segment, and the pro- 
cessor segment. 


The Root Segment 


The root segment consists of two control 
sections (CSECTS): IEBCOMPM and IEBCROOT. 
CSECT IEBCOMFM contains the standard mes- 
sages for the ITEBCOMPR utility program. 


Table 1. 


Records 
Have Keys 


Level of 


x Data Set 
Comparison 


SYSUTI 
SYSUT2 


SYSUTI 
Block a] SYSUT2 


Physical 


Logical SYSUTI 
Record SYSUT2 


Logical SYSUTI Not a 
Record SYSUT2 Factor 
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CSECT IEBCROOT consists of the two routines 
COMPARE, and LLEORI. 


COMPARE 
sets all switches and tables to their 
starting or original values. 


LLEORI 
opens SYSPRINT, writes the header line 
using the optionally supplied initial 
page number on SYSPRINT. 


The Control Card Analyzer Segment 


The control card analyzer segment reads and 
processes the control cards. It consists 
of two routines: IEBCANAL (containing con- 
trol section ANALY) and IEBCCS02 (contain- 
ing control section ACTCCS). 


ANALY 
calls ACTCCS to process the control 
cards and then, based on the parame- 
ters supplied in the control cards, 
sets switches and creates parameter 
tables. 


AcTccS 
opens SYSIN, reads the control cards, 
and passes the location, length, and 
identification of the parameters to 
ANALY. 


The Processor Segment 


The processor segment performs the actual 
compare operation. It consists of the rou- 
tines IEBCMAIN, IEBCQSAM, and IEBCULET. 

The routine IEBCMAIN contains six subrou- 
tines: DIRBUFF1, STARTBSA, SDSOBEG, READ- 
SET1, COMPAR, and BLPRT. 


DIRBUFF1 
compares the directories of the input 
data sets if they are partitioned by 


Access Methods Used for Comparing Records 


Greater than 
32,756 bytes 
in at least 

one data set. 


BSAM 
Less than 32,756 ( 
bytes for both QSAM 
data sets. \ 
Less than 32,756 
BSAM 


bytes for both 


& 


reading the directories and compares 
the member names. 


STARTBSA 
uses BSAM to open the data sets, SYS- 
UT1 and SYSUT2, being compared, and 
obtains the necessary DCB information 
from each: block size, record length, 
record format, and key length. If 
user input header or trailer labels 
are saved to be compared as data when 
user input header or trailer label 
exits are taken during Open or End-of- 
Data processing, this routine compares 
the user header labels from both data 
sets and prints the labels if they are 
unequal. 


SDSOBEG 
examines the key lengths, the logical 
record lengths (F and VS formats 
only), and record formats of both data 
sets. Any discrepancy in the data 
sets results in an error message and 
termination of the task. If this rou- 
tine determines that QSAM is required 
to process variable spanned (VS) rec- 
ords, it closes the data sets SYSUT1 
and SYSUT2 and gives control to the 
routine IEBCQCSAM to perform the 
processing. 


READSET1 
reads and deblocks physical records. 
Note: Deblocking on data sets with VS 
records is not done when comparing 
records whose length is greater than 
32,756 bytes. 


COMPAR 
compares logical records. Unequal 
records are identified and printed. 
If a user routine is not provided and 
ten consecutive records fail to com- 
pare equally, this routine skips to 
the next member in each partitioned 
data set or terminates the task if the 
data sets are sequential. 


BLPRT 
prints internal hexadecimal data in 
Extended Binary-Coded-Decimal Inter- 
change Code (EBCDIC) characters. 


The routine IEBCQSAM contains the control 
section CSAM and processes data sets con- 
taining records that: do not have keys, 
are less than 32,756 bytes long, and are of 
format VS (see Table 1). In effect, this 
routine functions as a closed subroutine 
for routine IEBCMAIN, and it uses the sub- 
routines CCMPAR and BLPRT. 


The routine IEBCULET contains the control 
section USERLAB. This routine, which func- 
tions as a closed subroutine of routine 
IEBCMAIN, saves, in main storage, the input 
header and trailer labels for both the SYS- 


UT1 and SYSUT2 data sets. Routine IEBCULET 
is entered during the opening of, and when 
reaching the end of, the data sets SYSUT1 
and SYSUT2. Exits to user input header and 
trailer label processing routines are taken 
from this routine. 
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Figure 44. Overlay Structure of the IEB- 


COMPR Program 


PROGRAM FLOW 


Chart 44 shows the flow of control through 
the IEBCOMPR program. After this program 
is entered, it sets switches and tables to 
their original or starting values and opens 
SYSPRINT. A header is written on SYSPRINT 
at this time, using the optionally supplied 
initial page number. 


The control card analyzer, ANALY, picks 
up the control statements from SYSIN and 
places them in tables within the IEBCCMPR 
program. 


The ddnames for each data set are picked 
up from the ddname list and saved for later 
in the messages. Switches are also set at 
this time for each user exit that is 
specified. 


The organization of the input data sets 
SYSUT1 and SYSUI2, can be either sequential 
or partitioned. If it is partitioned, 
storage must be allocated for tables. To 
determine the amount of storage needed, the 
program opens SYSUT1 with BSAM, reads the 
directory, and scans the user data field 
for member names, aliases, track address 
pointers, and note lists. When this is 
done, SYSUT1i is closed. 


If SY¥YSUT1 and SYSUT2 are partitioned, 
they are opened with BSAM and the direc- 
tories are compared. Member names that 
compare equally are stored in the TNSET 
table. Member names that do not compare 
cause the member name with the lower binary 
value to be printed and assumed missing 
from the other data set. Also, user data 
fields for either member names or aliases 
that do not compare are printed. 
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Note list pointers associated with memb- 
er names that compare equally are stored in 
tables TTRSET1 and TTRSET2 for SYSUT1 and 
SYSUT2, respectively. When the directory 
comparison is complete, SYSUT1 and SYSUT2 
are closed. 


At this point the program begins to com- 
pare logical records. The input data sets 
are opened and the necessary information is 
extracted from each DCB; i.e., block size, 
record length, record format, and key 
length. If a user exit is taken to com- 
pare, as data, the user input header labels 
from two sequential data sets, this routine 
performs the comparison of the approrriate 
labels. If the input data sets are sequen- 
tially organized, the user header labels 
from both data sets are compared unless 
control statements indicate otherwise. The 
program prints the labels if they are 
unequal. 


The record formats, the key lengths, and 
the logical record length (F and VS format 
records only) of the input data sets are 
compared. If there is any inconsistency, a 
message is printed and processing is 
terminated. 


A physical record is read from each 
input data set and deblocked. (Note: 
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Deblocking is not done when the data sets 
being compared have records whose lengths 
are greater than 32,756 bytes.) If there 
is no user pre-compare routine, a record 
from each data set is compared a character 
at a time until all the records are 
compared. 


Records that do not compare are identi- 
fied and printed. If a user error routine 
is provided, control is transferred to it. 
If a user error routine is not provided and 
this is the tenth consecutive error, pro- 
cessing either terminates if the input data 
sets are sequential or skips to the next 
member if the input data sets are 
partitioned. 


After the last record is processed, the 
input data sets are closed; the total num- 
ber of records compared is printed. If a 
user exit is taken to compare, as data, the 
user input trailer labels from two sequen- 
tial data sets, this routine performs the 
comparison of the appropriate labels. If 
the input data sets are sequentially 
organized, the user trailer labels from 
both input data sets are compared unless 
control statements indicate otherwise. The 
program prints the labels if they are 
unequal. 


Chart 44. IEBCOMPR - Comparing Records 
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Copying and Modifying Records 
(IEBGENER) 


The IEBGENER program copies a sequential 
data set, or converts a sequential data set 
into a partitioned data set, or adds mem- 
bers to an existing partitioned data set. 
Editing facilities are available with all 
operations of this program. 


The input to the IEBGENER program must 
be a sequential data set. The data set can 
reside on any device. The input records 
can ke U, F, V, or VS format. If F, V, or 
VS format, they can be blocked or 
unblocked. 


The output of the IEBGENER program can 
be either a sequential or a partitioned 
data set. If the output data set is parti- 
tioned, it must reside on a direct access 
device and note lists will not be 
permitted. 


PROGRAM STRUCTURE 


The IEBGENER program (Figure 45) consists 
of three segments: the root segment, the 
control card analyzer segment, and the pro- 
cessor segment. 


The Root Segment 


The root segment initializes the program 

and writes messages on SYSPRINT. It con- 
Sists of three routines (IEPRGENER, HWRMSG, 
and HCDWR) and a message module, IFBDGMSG. 


ITEBGENER 
sets switches, assigns data areas, 
opens SYSPRINT, and writes the header 
line with a user supplied initial page 
number (if any) on SYSPRINT. 


HWRMSG 
writes error messages on SYSPRINT. 


HCDWR 
writes, on SYSPRINT, the control cards 
that are read by the control card 
scanner (IEBGSCAN) routine. 


IEBGMESG 
contains the text of error messages 
that are written by HWRMSG. 


The Control Card Analyzer Segment 


The control card analyzer segment reads and 
processes the control cards. It consists 
of two routines: IEBGSCAN and IEBCCS02. 


LIEBGSCAN 
calls IEBCCS0O2 to process the control 
cards and then, based on an analysis 
of the parameters supplied in the con- 
trol cards, IEBGSCAN sets switches and 
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creates parameter tables for use by 
the processing modules IEBGENR3, IEB- 
GENS3, and IEBGENO3. The addresses of 
the tables are in a list to which gen- 
eral register 1 points when this rou- 
tine has finished its processing. 


IFBCCS02 
opens SYSIN, reads the control cards 
and then passes the location, length, 
and identification of the parameters 
to IEBGSCAN. 


The Processor Segment 


The processor segment consists of a root 
module, IEBGENR3, and two processing 
modules, IEBGENS3 and IEBGENOQ3. The root 
module opens and closes the data sets and 
performs all label processing. It gives 
control to either of the other two modules 
(IEBGENS3 and IEBGENO3) for editing and 
copying functions. Module IEBGENS3 is used 
for variable spanned records and IEBGENO3 
is used for all other record formats. The 
entire segment consists of these three 
modules and the following routines: IEBE- 
DII2, IEBLENP2, ITEBMOVE2, IEBCCNH2, IEB- 
CONP2, and IEBCONZ2. 


IEBGENS3 
for variable spanned records, this 
processing module either gets and puts 
logical records or reads and writes 
physical blocks, depending on DD card 
parameters and/or information in the 
data set control block. The module 
links to editing and/or conversion 
subroutines as required by control 
Statements. It returns control to the 
root module. 


TEBGENO3 
for all but variable spanned records, 
this module reads the input from the 
SYSUT1 data set, deblocks the records, 
edits them if required, and writes the 
output on SYSUT2 with proper blocking. 
The module links to editing and/or 
conversion subroutines as required by 
control statements. It returns con- 
trol to the root module. 


IEBEDIT2 
moves the logical records from the 
input buffer to the output buffer with 
field editing. One field is moved at 
a time, and converted if necessary. 


IEBLENP 2 
calculates the total length of the 
output records based on the lengths of 
the fields to be moved. Conversion is 
then performed on each. 


IEBMOVE 2 
moves bytes of data from one area of 
Main storage to another. 


Root Segment 


Control Card 
Analyzer Segment 


Spanned Record 
Processor (IEBGENS3) 


Figure 45. 


ITEBCONH2 
converts the data from H-set BCD to 
EBCDIC characters. 

IEBCONP2 
converts the data from packed to zoned 
decimal format. 

IEBCONZ2 
converts the data from zoned to packed 
decimal format. 


Charts 45 and 46 show the flow of con- 
trol through the IEBGENER program. After 
the program is entered, it sets switches, 
assigns data areas, analyzes linkage param- 
eters, and opens SYSPRINT. A header line 
with user initial page number (if any) is 
written on SYSPRINT at this time. 


The control card analyzer, IEBGSCAN, 
picks up the control statements from SYSIN 
and places them within the IEBGENER 
program. 


The DD name for each data set is picked 
up from the DD name list and stored in the 
HDDNAMES table. Then the input (SYSUT1) 
and the output (SYSUT2) data sets are 
opened. A user exit may be taken at this 
point to process user header labels. 


Next, a physical record is read into the 
read buffer and then moved to the input 
work area for deblocking and processing. 

At this point, the record is available to 
the user via a user exit. 


The program reads the next physical rec- 
ord from the input data set to refill the 
vacated input puffer. 


These modules are mutually exclusive 


Processor Root Processing for 


User Labels 


Segment (IERGENR3) 


Non-Spanned Record 


Processor (IEBGENO3) 


Overlay Structure of the IEBGENER Program 


Logical records are moved one at a time 
to the output work area. If editing is 
requested by the user, the requested con- 
version of each field of each logical rec- 
ord is performed. 


A test is performed before a record is 
moved from the input work area to the out- 
put work area to determine whether space is 
available in the output work area. If 
space is not available or if the output 
work area contains the last record of a 
partitioned data set, records in the output 
work area are moved to the output buffer. 
If a user totaling routine has been speci- 
fied, the processing module (either IEB- 
GENS3 or IEBGEN03) gives control to that 
routine at an exit immediately preceding 
each WRITE or PUT macro instruction issued 
by the utility. At the same time, register 
1 contains the address of a parameter list 
(see Appendix B) that includes: 


e The address of either a physical block 
(if control comes from module IEBGENO3) 
or a logical record (if control comes 
from module IEBGENS3 and spanned rec- 
ords are processed with reformatting.) 


e The address of the data control block 
describing the data to be placed on the 
output device. 


e The address of an area to contain sta- 
tus information describing an uncor- 
rectable I/O error. 


e The address of a storage area in which 
the user collects totaling information. 
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After control returns from the user's rou- 
tine, the utility places the record(s) on 
the output data set. 


In the case of an uncorrectable I/0 
error occurring when the utility places 
records on the output data set, the utility 
passes control back to the user's totaling 
routine with bit 0 of byte eight of the fa- 
rameter list now set to 1 to indicate the 
error. The first word of the parameter 
list contains no meaningful information in 
this case. (This return to the user total- 
ing routine is taken before any specified 
user IOERRCR exit is taken.) After control 
returns to the utility from either the to- 
taling routine or, if one is specified, an 
IOERROR exit routine, the utility program 
terminates the processing without taking 
any user trailer-label exits. 


Note: For the processing modules IEBGENS3 
and IEBGENO3, a user's specified IOERROR 
exit is taken from the SYNAD routine on the 
occurrence of a permanent I/O error during 
either input or output processing. 
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The utility will terminate processing after 
control is returned from the user's exit 
routine. 


If a user totaling routine has not been 
specified, the utility writes the record (s) 
directly on the output data set. 


If the output contains keys, the keys 
are also written out. A user exit permits 
the user to insert keys. 


A test follows the movement of each rec- 
ord from the input to the output work areas 
tc determine whether the output data set is 
partitioned or sequential. If the output 
data set is partitioned and the last record 
for a member was previously written, the 
member name and aliases are stored in the 
directory. 

After the last record is processed and 
written, the input and output data sets are 
closed. During the closing a user exit may 
be taken to process user trailer labels. 
Ccentrol is then returned to the invoker. 


eChart 45. IEBGENER - Copying and Modifying Records (Part 1 of 2) 
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eChart 46. 
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IEBGENER - Copying and Modifying Records (Part 2 of 2) 
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Printing and Punching Records 
(IEBPTPCH) 


The IEBPTPCH program prints or punches all 
or selected portions of a sequential data 

set, a partitioned data set, or specified 

members of a partitioned data set. 


The input to the IEBPTPCH program can be 
either a sequential or a partitioned data 
set. The input records can be U, F, or V 
format. If F or V format, they can be 
blocked or unblocked. 


The output of the IEBPTPCH program is 
put on a printer or a card punch. Note 
lists are permitted in the output only when 
the standard format is used. 


PROGRAM STRUCTURE 


The program (Figure 46) consists of three 
segments: the root segment, the control 
card analyzer segment, and the processor 
segment. 


(eee ee eee 1 
| corinne 7 l 
| | | 
| | Root | | 
| a reac | 
| power nen nn nb -------- | 
| pow —7 r-~—-1t---4 | 
| | Control | | | | 
| | card | |Processor| | 
| | Analyzer| | | | 
| Use cete cas | ee ee eee | 
Un ee eh eh oe ee Jj 
Figure 46. Overlay Structure of the 


IEBPTPCH Program 


The Root Segment 


The root segment initializes the fro- 
gram, and consists of one routine, PRPCH, 
which links to PPANAL. 


The Control Card Analyzer Seqment 


The control card analyzer segment reads and 
processes the control cards. It consists 
of two routines: PPANAL and ACTCCS. 


PPANAL 
calls ACTCCS to process the control 
cards and then, based on the parame- 
ters supplied in the control cards, 
sets switches and creates parameter 
tables. 


ACTCCS 
opens SYSIN, reads the control cards 
and then passes the location, length, 
and identification of the parameters 
to PPANAL. 


The Processor Segment 


Ihe processor segment performs the printing 
and punching operations. It consists of 
twelve routines: PRPUN, TCTAL, MEMBLCC, 
PPSDS1, RDCH, PREFORM, RECDLCC1, RECPROC, 
RECPREP, FORMS, FORMU, and CLOSEIO. 


PRPUN 
examines the parameters supplied by 
the PPANL routine in the control card 
analyzer segment and performs initial- 
ization based on these parameters. 


TOTAL 
reads the directory, extracts the name 
and location of each entry, and sorts 
the entries by TTR and alias indicator 
so that members can be written in the 
order of their physical occurrence in 
the data set and written only once. 


MEMBLOC : 
obtains the name and location of the 
next partitioned data set member to be 
written and then positions the data 
set so that the member can be read. 


PPSDS1 

determines whether there are user 
written record groups. If no editing 
is indicated, it prepares to write the 
sequential data set or the member in 
the standard format. It also prepares 
to skip logical records within the 
member or the sequential data set. 


RCOCH 
reads a physical record. If note 
lists are to be omitted and the cur- 
rent record is a note list, another 
physical record is read. 


PREFORM 
deblocks and writes out the records if 
PREFORM is specified. 


RECDLOC1 
deblocks the physical record. 


RECPROC 

initiates logical record processing, 
examines the identification (ID) of 
the record to determine if it is last 
record in a group, examines the logi- 
cal record count to determine if the 
record should be skipped, and provides 
the user access to the input record. 


RECPREP 
tests for the end of page on printed 
output and determines the format for 
the current logical record. 


FORMS 
writes a logical record in the stan- 
dard format. If necessary, it seg- 
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ments the input record into multiple 
output records. 


FORMU 
edits a logical record in accordance 
with user specifications. Before the 
record is written, the user can again 
access the output record. 


CLOSEIO 
prepares to end the task and relin- 
gquish control to the control program 
or the invoker. 


PROGRAM FLCW 


Chart 47 shows the flow of control 
through the IEBPTPCH program. After the 
program is entered, it sets switches, 
assigns data areas, and analyzes the 
internal system-provided parameters. A 
header is written on SYSPRINT at this time, 
using the optionally supplied initial page 
number. 


The control card analyzer routine (PPAN- 
AL) picks up the control statements from 
SYSIN and places them in tables within the 
IEBPTPCH program. The output data set, 
(SYSUT2) is then opened for printing or 
punching. 


If the input data set, SYSUT1, is parti- 
tioned and the entire data set is to be 
read and processed, the program reads the 
directory and extracts the name and loca- 
tion of each entry. The entries are then 
sorted by TTR and alias so that members can 
be written in the order of their physical 
occurrence on the direct access device. 


Next, initialization is performed to 
enable the input data set to be read. A 
user exit can be taken at this point to 
process the user header label on the input 
data set if it is sequentially organized. 


If the user's routine returns an action 
code of 16, the utility program will com- 
plete the opening of the input data set, 
print and punch (if so specified) any head- 


(monn nnn T------- 


| DCB Parameter | 


ex labels that have already been read (up 
to the point for which the action code was 
set), close the input data set, and termi- 
nate the processing. The utility will then 
return control to the supervisor. 


If the input data set contains variable 
Spanned records, the DCB exit routine, dur- 
ing the opening of the SYSUT1 data set, 
tests the record length and the record for- 
mat parameters. The action taken is indi- 
cated in Figure 47. 


After the data set has been opened, the 
access method indicator field in the DCR is 
set to indicate the use of the QSAM MOVE 
mode. 


If the input data set is partitioned, 
the name and location of the member that is 
to be processed is obtained and the data 
set is positioned so that the member can be 
read. 


Any user-supplied titles are written at 
this time. If the input is partitioned, 
the member currently being processed is 
identified. A new page is started for 
printed output or a new sequence number is 
initiated for punched output. The program 
then determines whether there are user 
written record groups and performs initial- 
ization accordingly. If there is no edit- 
ing, initialization is performed to process 
the sequential data set or member in the 
standard format. 


The RDCH routine reads a physical record 
and determines whether a note list is pre- 
sent. If the physical record is a note 
list and it is to be omitted, the routine 
reads the next physical record when the 
basic sequential access method is being 
used. When the queued sequential access 
method (QSAM) is used, the routine gets a 
logical record. QSAM is used only for a 
sequential data set having both a logical 
record length that does not exceed 32,756 
bytes and variable spanned records. 


The PREFORM routine deblocks and writes 
out records if the user has control charac- 


we a a 1 


Action Taken | 


ee ce a se ae a et a ae ee ae ae a ae ae eee ee en tn a nf 


| RECFM | LRECL 


{Work Area for IEBPTPCH | 
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Figure 47. 
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{RECFM field in utility work area is set to U. 
| |LRECL field in utility work area is filled with the 
| [DCB blocksize. 


{BLKSIZE field in utility work area is filled with 


| |the DCB logical record length. 
Sa ep a ent Die ete eS 1 enema ene 


Work Area Settings for Support of Variable Spanned Records 


| 
| 
{RECFM field in utility work area is set to V. | 
{ 
| 


ce ra eae ac ae a ee a oe ee a a i —— J 


ters in the input data set and specifies 
the keyword PREFORM. All other control 
statement requests are ignored, but are 
checked for validity. 


The RECDLOC1 routine deblocks the phys- 
ical record and obtains the length and 
location of the next logical record. When 
no logical records remain in a block, the 
RECDLOC1 routine returns to the RDCH rou- 
tine, and another physical record is read. 


A user exit can be taken at this point 
to process a logical record before it is 
processed ky the program. 


The processing of a logical record 
includes checking the record ID to deter- 
mine whether it is the last record ina 
record group and testing the record count 
to see if the record should be skipped. If 
the record is the last record of a record 
group, a switch is set for subsequent test- 
ing. If the record is to be skipped, con- 
trol is passed to the end of record group 
test. 


Next, the output format of the logical 
record is tested to determine if it is to 
be standard or user defined. The FORMS 


routine writes a logical record in the 
standard format; and when necessary, seg- 
ments the input record into multiple output 
records. The FORMU routine edits a logical 
record a according to user specifications. 
A user exit may be taken before the record 
is written to allow the user to perform 
additional editing. 


After the last record in each record 
group is written, the NEXTGR routine per- 
forms reinitialization to allow the next 
record group to be processed. 


When the end of data is reached on an 
input partitioned data set, the name and 
location of the next member is obtained and 
the data set is positioned to the next 
member. When the end of data for the last 
member or for a sequential data set is 
reached, the input data set is closed. A 
user exit can be taken at this point to 
process the user trailer on the input data 
set if it is sequentially organized. 


The processing of trailer labels employs 
the same use of return action code 16 as 
described in this section for header label 
processing. 
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Chart 47. IEBPTPCH - 
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Operating on an Indexed Sequential 
Data Set (IEBISAM) 


The IEBISAM program is executed under the 
operating system to copy, unload, load, or 
print an indexed sequential data set. As 
examples, this program can be used to cre- 
ate a back-up copy of a data set, or to 
improve the accessibility of a data set by 
eliminating wasted track space and overflow 
areas. The program, which may be either 
executed as a job step or called by an 
executing program, consists of six load 
modules (see Chart 48) that reside in the 
linkage library, LINKLIE. 


The Initializing routine determines 
which function has been specified, then 
passes control to one of four functional 
(or processing) modules. The selected pro- 
cessing module performs its specified func- 
tion, then passes control to the Terminat- 
ing routine, which writes messages, ter- 
minates processing, and returns control to 
the calling routine. (Note: If invalid 
specifications or parameters have been spe- 
cified, the Initializing routine sets the 
appropriate message and completion code 
indications and gives control directly to 
the Terminating routine.) 


The IEBISAM program may be executed as a 
job step, or it may be called by a program 
executing a job step. If it is to be 
executed as a jok step, the step's EXEC 
statement specifies the program IEBISAM, 
and the EXEC statement’s PARM field speci- 
fies the function to be performed as a pa- 
rameter (COPY, UNLOAD, LOAD, or PRINTL). 

If the IEBISAM program is to be called by a 
program executing a job step, the calling 
program must specify the function by pro- 
viding "EXEC statement parameters" and 
ddnames as shown in this publication in the 
section "Auxiliary Parameters." In either 
case, the job control language statements 
that describe the step during which IEFBISAM 
is to be executed must include DD state- 
ments to define the input, output, and mes- 
sage data sets. 


Figure 48 gives a module directory and 
summary for the IEBISAM program, and Charts 
49-56 outline the individual routines of 
the program. For more information regard- 
ing the use of the program, refer to the 


SRL publication IBM System/360 Operating 
System: Utilities, Form C28-6586. 


INITIALIZING IEBISAM 


The Initializing routine is in the load 
module (IEBISAM) that is entered whenever 
the IEBISAM program is requested. This 
routine (Chart 49) obtains main storage for 


a work area, then inspects the specifica- 
tions under which the program is to run. 


If no options have been specified in the 
PARM field of the EXEC statement, the pro- 
gram assumes the (default) option to unload 
the data set. If a function specification 
is not valid, this routine stores a comple- 
tion code, assembles a message, and uses 
the XCTL macro instruction to pass control 
to the Terminating routine, IEBISF. 


In all other situations (i.e., those in 
which correct procedures have been fol- 
lowed), the Initializing routine assembles 
the necessary information and gives control 
to the appropriate module. 


COPYING AN INDEXED SEQUENTIAL DATA SET 


If the copy function was specified, control 
is passed to the Copy routine in module 
IEBISC. This routine creates an output 
data set containing the same records as the 
input data set, but with newly built index- 
es and empty overflow areas. The Copy rou- 
tine (Chart 50) opens the input data set 
(SYSUT1) and the output data set (SYSUT2) 
for use by QISAM and checks the DCR 
parameters: 


e The DCBLRECL parameters must be the 
same for both the input and the output 
data sets. 


e The DCBRECFM parameters must be the 
same (F or V) for both the input and 
the output data sets. 


e For the output data set, the DCBBLKSI 
parameter must be a multiple of the 
DCBLRECL parameter if the record format 
(RECFM) is fixed (F). For variable 
length records (RECFM=V), the DCERLKSI 
parameter must be equal to or greater 
than the logical record length (LRECL) 
+ 4. 


e The DCBRKP parameter must be smaller 
than the DCBRECL parameter minus the 
DCBKEYLE parameters. 


If the input and output data sets are 
opened successfully, and the DCB parameters 
are valid, the Copy routine uses the PUT 
(locate mode) and the GET (move mode) macro 
instructions to read the records in logical 
sequence from the input data set and write 
them into the output data set. 


If the data sets are not opened success- 
fully, if the DCB parameters are not valid, 
or if an unrecoverable input/output error 
is encountered, the routine stores both a 
completion code and a message code. Pro- 
cessing on the data set is terminated; the 
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r T eee cecal 1 
|Module ID{CSECT | Summary {Chart ID| 
~--------}---~---}-~----~-------~---------------+---------------------------=- +--------4 
|IEBISAM |IEBISAM|Receives control from calling routine. | 49 | 
| | |Gets work area used by processing modules. | | 
| | |Gets program parameters, alternate ddnames, page number. | | 
| | {Passes control to appropriate module. | | 
--------- }----~~-}--------------~-----+-------------------- = === === === === 
| LEBISC | IEBISC | Produces copy of input data set with new indexes. | 50 | 
| (Copy) | |Uses PUT and GET racro instructions. | | 
--------- bo--2---}-~--~---- 2 ---2------------ -----—---------- J 
| LEBISU | IEBISU |Retrieves an indexed sequential record and passes its length| 51 | 
| (Unload) | jand address to IBISSO. | | 
| | |Analyzes return code from IEBRISSO and sets success or error | | 
| | [indication for IEBISF. | | 
[0 peeeeee- fanaa nn nnn nnn ann nnn -~-+4--------4 
| | IEBISSO|Unloads the indexed sequential record(s) into physically | 52 | 
| | |sequential 80-byte card images. | | 
a a I eS ee : 
PEEIOL cen |Reconstructs an indexed sequential record from ‘unloaded’ } 53 ; 
| (Load) | j|data passed by IEBISSI. | | 
| | |Checks DCF parameters OPTCD, RECFM, LRECL, BLKSIZE, RKF, | | 
| | |NIM, KEYLEN, and CYLOFL against corresponding DD statement | | 
| | | information. | | 
| Saul Supa punepapunepuDED "SERED >TEd>Taipo=>> uP GRD RED UNNDED Un SURNDEREEND SAUDE SETEDURRRRTRTURERRDDDRDU +---—--— : 
| | IEBISSI]| Retrieves unloaded (80-byte card images) records { 54 | 
| | |Maintains pointer to current input area. | | 
| | {Maintains number of bytes remaining to be processed ona | | 
| | {given card image. ) | | 
| | {Checks each card image for proper sequence. | | 
|----~---- bonn nan pon nn nnn rrr cn rn rn ns +-------- { 
JIEBISPL |IEBISPL| Produces printed copy of input data set. { 55 | 
|(Print) | | Provides for user exit and/or suppression of data | | 
| | | conversion. | | 
po--- === banana nnn nn nn ater +-------- : 
| TEBISF | IEBISF |Receives control from initializing or processing module. {| 56 | 
| | {Prints appropriate message and returns completion code to | | 
| | j|calling routine. | | 
bose Be i wl a a a a i ne a epee een J 
Figure 48. Module Directory, Summary, and Chart IDs for IEBISAM Program 


data sets are closed; and control is given 
to the Terminating routine. 


UNLOADING AN INDEXED SEQUENTIAL DATA SET 


If the unload function was specified, con- 
trol is passed from the Initializing rou- 
tine to the Unload routine (in module IEBI- 
SU) to create a physical sequential data 
set containing the information from the 
input (indexed sequential) data set. This 
information is put in 80-byte card images 
on either a magnetic tape volume or a 
direct access volume. Figure 49 illus- 
trates the data flow and format during 
unloading operations. 


Module IEBISU contains two control sec- 
tions (CSECTs): IEBISU (Chart 51), which 
reads records in logical sequence from an 
indexed sequential data set; and IEBISSO 
(Chart 52), which reblocks the records and 
writes them into a physical sequential data 
set. 
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Obtaining Indexed Sequential Records 


After module IEBISU is entered at CSECT 
IEBISU, the Unload routine opens the input 
data set and determines the format of the 
records. (If the relative key position is 
the high-order byte of the record (i.e., 
DKBRKP equals zero), the key field is 
treated separately when the records are put 
into the output data set.) 


CSECT IEBISU uses CSECT IEBISSO as a 
subroutine; initially, IEBISU passes con- 
trol to IEBISSO to open the output 
(unloaded) data set, then again to write 
the input (indexed sequential) DCB into the 
output data set. After the DCB has been 
written, IEBISU uses the GET (locate mode) 
macro instruction to obtain a record from 
the input data set, then passes control to 
CSECT IEBISSO. 


Building the Output Data Set 


CSECT IEBISSO performs the reblocking and 
writing of the input indexed sequential 


records into the output data set. The out- 
put data set is a physical sequential data 
set consisting of 80-byte logical records. 
The 80-byte records contain the key and 
data fields of the indexed sequential data 
set, together with length indicators and 
sequence numbers (see Figure 49). 


The first 154 bytes of DCE information 
for the indexed sequential data set are 
written in the first two physically sequen- 
tial records (those with sequence numbers 
zero and one) of the output data set. The 
first 80-byte logical record contains the 
physical sequence number zero, followed by 
the length indicator 154. (The length 
indicator represents the number of bytes 
between one length indicator field and the 
succeeding length indicator field.) The 
first 76 bytes of the DCE for the input 
data set complete the first logical record. 
The second 80-byte logical record contains 
the sequence number one, followed by the 
next 78 bytes of the input data set"s DCB. 
The information in the first 154 bytes of 
the input DCB includes the following 
fields: OPTCD, RECFM, LRECL, ELKSIZE, RKP, 
NTM, KEYLEN, and CYLOFL. (See Figure 47, 
and the section "Data Control Block--ISAM" 


in the publication IBM System/360 Operating 


System: System Control Blocks, Form C28- 
6628.) The remaining 80-byte logical rec- 


ords (beginning with sequence number two) 
contain the images of the records in the 

input data set. The last 80-byte logical 
record of the unloaded (physical sequen- 

tial) data set contains from zero to two 

bytes of zeros following the last byte of 
input record data. 


At the first entry to CSECT IEBISSO, the 
Unload routine opens the output DCP and 
checks the DSORG and BLIKSIZE parameters: 
the DSORG parameter must be FS, and the 
BLKSIZE parameter must be multiple of 80. 
If the opening is successful and the paran- 
eters are valid, the routine issues a PUT 
(locate mode) macro instruction to write 
the DCB in the output data set. This 
information and control of the Unload rou- 
tine are then returned to CSECT IEBPISU. 


On suksequent entries to CSECT IERISSC, 
the output buffer is filled with indexed 
sequential records obtained by CSECT IEBI- 
St. The routine stores the record length 
indicator first, then it stores the record 
key and data fields. When the routine 
finds the end of an input record, it 
returns control to CSECT IEBISU to obtain 
another record; when it has filled the 
input buffer, the routine issues a PUT 
(locate mode) macro instruction to write 
the contents of the buffer into the output 
data set. The physical sequence number for 
the output data set records is then 
updated. 


If CSECT I£BISSO encounters an error 
condition (e.g., unsuccessful open, invalid 
DCB parameters, or an uncorrectable I/C 
error), it closes the output data set, sets 
the appropriate return code (see Chart 51), 
and returns control to CSECT IEBISU. IEBI- 
£t then sets both a message and a comple- 
tion code, closes the input data set, and 
passes control to the Terminating routine. 
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LOADING AN INDEXED SEQUENTIAL DATA SET 


The Load routine is used to reconstruct an 
indexed sequential data set from an 
unloaded copy of the physical sequential 
data set. The output data set resulting 
from the loading function is placed ona 
direct access volume. If the original 
indexed sequential data set contained rec- 
ords in an overflow area, these records 
will appear sequentially arranged with the 
records from the original primary area when 
the unloaded data set is reloaded. 


To perform the load function, the Ini- 
tializing routine gives control to CSECT 
IEBISL of module IEBISL (see Chart 53). 

The Load routine performs its own initial- 
izing functions, then branches to CSECT 
IEHISSI of the same load module to get the 
length and address of an input record from 
the unloaded data set. If the return to 
CSECT IEBISL from CSECT IEHISSI indicates a 
return code other than zero, the appropri- 
ate message number and/or completion code 
are estaklished, the output data set (if it 
had keen opened as described later on) is 
closed, and control is given to the Termi- 
nating routine. 


If CSECT IEHISSI returns the requested 
information and a return code of zero when 
it gives control kack to CSECT IEBISL, 
CSECT IEBISL opens the output data set and 
checks the validity of the DCB fields. An 
inconsistency (or error) detected during 
either of the latter operations leads to 
procedures for closing the data set as pre- 
viously described. Otherwise, if no error 
is detected, the PUT macro instruction is 
used to place the record information in the 
new indexed sequential (output) data set. 


When all records from the unloaded (old) 
data set have been transferred to the new 
data set, the old data set is closed and 
control is given to the Terminating 
routine. 


In reconstructing the new data set, the 
information in the first two logical rec- 
ords of the unloaded data set is used in 
estaklishing the DCB for the new data set. 
The last 78 kytes of each subsequent 80- 
kyte logical record are used to build the 
records of the new data set. 


CSECT IEBISSI (Chart 54) opens the input 
(unloaded) data set and checks for the 
validity of the DCB parameters for that 
data set. Should either the opening be 
unsuccessful or a DCE parameter be invaiid, 
the data set is closed and return is made 
to CSECT IEBISL. Ctherwise, CSECT IEBISSI 
proceeds to get information from the logi- 
cal records of the unloaded data set and to 
transmit it to CSECT IEPISL so that it may 
be placed in the new indexed sequential 


data set. The GET and PUT macro instruc- 
tions are used for these operations. The 
preceding procedures continue until either 
the end of the input data set is reached or 
a terminating error condition is reached. 
For both situations, the input data set is 
then closed, and control is returned to 
CSECT IEBISL. 


PRINTING LOGICAL RECORDS OF AN INDEXED 
SEQUENTIAL DATA SET 


In order to obtain a printed copy of an 
indexed sequential data set, a user speci- 
fies the keyword PRINTL in the PARM field 
of an EXEC statement. The queued indexed 
sequential access method (QISAM) is used to 
obtain the records from the input data set. 
The records are selected in logical 
sequence from both the prime and the over- 
flow areas of the input data set. To write 
the records, the queued sequential access 
method (QSAM) uses a PUT macro instructicn. 
Record conversion (to hexadecimal notation) 
and/or user exits before record printing 
May be specified as options. 


After module IEBISAM gives control to 
the print module IEBISPL (Chart 55), both 
the input and the output data sets are 
opened, the success of the openings is 
determined, and the DCB parameters are 
checked for validity. If an error is 
encountered in any of the preceding opera- 
tions, steps are taken to close the data 
sets and give control to the Terminating 
routine. 


If the data sets have been opened suc- 
cessfully and the DCB parameters are valid, 
the Print routine proceeds to place a rec- 
ord in a buffer area prior to printing it. 
At this point, a user's routine may gain 
access to the record if the proper specifi- 
cation has been given on the EXEC state- 
ment. Upon return from the user's routine 
with a return code of either 0 or 4 (see 
the return code table on Chart 55), or if 
ne user exit was taken, the data in the 
buffer is converted to hexadecimal notation 
unless the no-conversion option has been 
specified. The PUT macro instruction is 
then issued to print the record on a SYSCUT 
device. After all input data records nave 
been printed, or if the routine encounters 
an unrecoverable error, the input and out- 
put data sets are closed and the Terminat- 
ing routine is given control. 


Note: A more complete interpretation of 
tne codes returned to the print module 
IKBISPL ky a user's exit routine is given 
below: 


Code 0: The record currently in the 
buffer is to be printed, and prccessing 
of the input data set is to continue. 


Data Set Utility Programs: IEBISAM 133 


Code 4: The record currently in the 
buffer is to be printed, but processing 
of the input data set is to be ter- 
‘minated after the printing. 


Code 8: The record currently in the 
tuffer is not to be printed. Processing 
of the input data set is to continue. 


Code 12: The record currently in the 
buffer is not to be printed, and proces- 
sing of the input data set is to be 
terminated. 


TERMINATING THE IEBISAM PROGRAM 


Each of the other routines of the IEFEISAM 
program may give control and a completion 
code to the Terminating routine (in module 
IEBISF). The basic function of the Termi- 
nating routine is to write an appropriate 
message on the SYSPRINT data set. This 
message indicates the resuit of the use of 
the IEBISAM program. 
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When module IEBISF (see Chart 56) gains 
ccntrol, it opens the output (SYSPRINT) 
data set. If the opening is unsuccessful, 
the approriate completion code (16) is set, 
the SYSPRINT data set is closed, and con- 
trol is returned to the source from which 
the IEBISAM program was initially given 
ccentrol. 


After a successful opening of the output 
aata set, the PUT macro instruction is used 
to write the message concerning the pro- 
gram*s result. If an error is encountered 
during writing, a completion code of 8 is 
set and returned to the caller of the 
IEBISAM program. (The completion codes 
shown on Chart 56 are those resulting from 
processing actvity by module IEBISF.) If 
nc error is encountered during writing, the 
Terminating routine established a comple- 
tion code based upon the results of the 
routine from which the Terminating routine 
received control. This code, and prograr 
control, are then given to the caller of 
the IEBISAM program. 


Chart 48. IEBISAM - Overall Flow 
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Chart 49. IEBISAM - Initialize IEBISAM Program 
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Chart 50. 
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eChart 51. IEBISAM - Retrieve Indexed Sequential Records (IEBISU) 
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Chart 52. 
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Chart 53. 
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IEBISAM - Reconstruct Indexed Sequential Records (IEBISL) 
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Chart 55. IEBISAM - Print logical Records (IEBISPL) 
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Issue FREEMAIN Convert Data NOTE 1: Codes and Message Numbers 
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Updating Symbolic Libraries 
(IEBUPDAT) 


The IEBUPDAT program modifies a symbolic 
library. The program can: 


e® Add, copy, and replace members. 

e Add, delete, replace, and renumber the 
records within an existing member. 

e Assign sequence numbers to the records 
of a new member. 


The input to the IEBUPLAT program con- 
sists of two data sets: the old master 
data set (SYSUT1) and the current transac- 
tion data set (SYSIN). The old master is a 
partitioned data set that contains all of 
the library members; the current transac- 
tion is a sequential data set that contains 
all of the transactions that are to be ap- 
plied to the library members. The logical 
record length for both data sets is 80 
bytes, blocked or unblocked. 


The output of the IERUPLDAT program con- 
Sists of two data sets: the new master 
(SYSUT2) and the log (SYSPRINT). The new 
Master is a partitioned data set that con- 
tains the updated version of the symbolic 
library; the log is a sequential data set 
that contains the latest changes to the old 
master or, optionally the currently updated 
version of the old master. The logical 
record length on the new master is 80 
bytes, Elocked or unblocked; on the log it 
is 120 bytes, unblocked. The blocking fac- 
tors of the old and new masters may be 
different. 


The program obtains main storage for 
buffers ty means of the getmain routine, 
which is called once for each buffer; the 
amount of storage requested is the same as 
the ktlock size specified by the utility 
keyword parameter BLKSIZE. If the arount 
of storage requested is not available, the 
program terminates. 


The current transaction is the control- 
ling data set. Only those members of the 
old master for which there are current 
transaction entries will be processed. Old 
Master members without current transaction 
entries will not appear in the new master. 


PROGRAM STRUCTURE 

The IEBUFDAT program (Figure 50) can be 
logically divided into three parts: ini- 
tialization, member processor, and within- 
member processor. 

Initialization 

Initialization sets switches, assigns work 
areas, and opens the input and output data 
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sets. It consists of four functions: 
AHEAD, ANALPRAM, OPEN1, and OPENINFT. 


AHEAD 
initializes switches, work areas, and 
DCBs so that they can be reused. 


ANALPARM 
analyzes input specifications and user 
header and trailer label exit routine 
name specifications. Errors cause 
termination of the program with a 
message. 


OPEN1 
opens output data sets. 


OPENINPT 
opens one or two input data sets 
according to optional parameter input 
specifications. 


Member Processor 


The member processor updates whole members 
at a time. It reads the current transac- 
tion data set and does preliminary proces- 
Sing of all headers: ADD, REPL, REFRC, and 
CHNGE. Further processing of the CHNGE 
header is done by the Within Member Proces- 
sor. The ADD, REPL, and REPRC headers and 
their associated current transaction rec- 
ords are processed by the Member Processor. 


A new-master is created by the Member- 
Level Processor for ADDs, REPLs, and REPRO 
headers. A REPRO header will cause the 
new-master to be written from the cld- 
master instead of from the current transac- 
tion data set as is done for ADD and REPL 
headers. Processing of the current tran- 
saction header includes sequence checking 
of member names, determination of proper 
directory entry (or lack of), stowing of 
ALIASes, sequencing of ADDs and REPLs 
(through presence of NUMBR), and detection 
of invalid transactions (i.e., transacticns 
that logically are out of sequence or are 
incorrectly prepared). The member proces- 
sor consists of eight routines: READCT, 
SCURCECK, MAINBODY, SOURCERT, OMREADRT, 
LOGROUTE, NUMBRRTE, and STCWNAME. 


READCT 
reads the current transaction data set 
and deblocks if necessary. It then 
checks for two illegal headers ina 
row (ADD, REPL, or CHNGE). 


SOURCECK 
determines the type of transaction. 


MAINBODY 
processes headers. It checks the 
member name of the current transaction 
header stream for proper sequence and 
sets up the STOWAREA area with the di- 
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rectory image. If the header is an 
ADD, MAINBODY ensures that there is no 
directory entry on the old master; 
conversely, if the header is a REPL, 
REPRO, or CHNGE, a directory entry 
must already be on the old master. 


SOURCERT 
processes all source line transactions 
in a member following an ADD or REPL 
header. 


OMREADRT 
processes the source line transactions 
in a member following a REPRO header. 


LOGRCUTE 
writes headers, ALIAS and NUMBR trans- 
actions, and error messages, on 
SYSPRINT. 


NUMBRRTE 
processes NUMBR transaction following 
either a REPL or ALD header. 


STOWNAME 
stores a member name in ‘the out rut 
directory. 

porn nnn 

| 

| ia 7 

| | : 

| |} Initialization }----------—----—-------- 

| | | 

| C——=-=—= {SS 4 

| { 

| | 

| (er aaa PS Se ae 7 

| | { 

| | Memker | ---------------------- 

| | Processor | 

| terse oso aaa 

| | 

| | 

| 1 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

[. sfeeeeser as whan teens 7 

| | Within | 

| | Member }---------------------- 

| | Processor | 

| RE ee ee em J 

| 

| 

| 

| 

| 

a ie a rt ee SS 


Figure 50. 


Within Member Processor 


The Within Member Processor updates the 
records within a member. It inserts, 
deletes, reproduces, replaces and/or rese- 
quences source code images. Control is 
given to the Within Member Processor when 
the Member Level Processor detects a CHNGE 
transaction and verifies the existence of 
the named member on the old master data 
set. The Within Member Processor retains 
control, processing a member of the old 
master as specified by the record of the 
current transaction data set until another 
header record or the ENDUP record is read. 
Control is then returned to the Merber 
Level Processor. 


The within member processor consists of 
four routines: RRFINDCM, RRSCURCE, RRDE- 
LET, and RRNUMBER. 


RRFINDOM 
reads the first record of the old 
master member being changed; then 
reads and checks the current transac- 
tion for the type of transaction. 
Control is passed to the appropriate 
transaction routine. 
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RRSOURCE 
compares the sequence numbers of the 
old master record and the source 
transaction record to determine wheth- 
er the source record is an insertion 
or a replacement. 


RRDELET 
deletes old master records whose 
sequence numkers are within the range 
of numbers on the DFLFT transaction. 


RRNUMBR : 
provides the sequence numbers for old 
master records and inserted source 
transaction records that follow a 
NUMBR transaction. 


PROGRAM FLCW 


Chart 57 shows the flow of control through 
the IEBUFDAT program. After the program is 
entered, it sets switches, assigns work 
areas, and checks DCBs for reusability. 

The output data sets SYSPRINT (log) and 
SYSUT2 (new master) are opened. The log 
header is written, using the optionally 
specified initial page number, and messages 
indicating error conditions found during 
ddname or initial page number interrogation 
are issued. Cption parameters supplied by 
the user via the EXEC statement are 
analyzed. 


Next, the current transaction data set 
(SYSIN) and the old master data set (SYS- 
UT1) are opened. (the DCE exit is taken to 
determine the block size so that a buffer 
area can be dynamically obtained for the 
SYSIN data set. A user header label exit 
May be taken at this point to process user 
header labels. 


The READCT routine is the starting point 
for the Memker Processor part of the pro- 
gram, and is executed each time processing 
is completed on a current transaction and a 
new current transaction is needed. READCT 
passes control to the READCTA subroutine 
which reads and deblocks a record from 
SYSIN. The record can be one of the fol- 
lowing: a header record, a source record, 
a NUMBR record, or an ALIAS record. A 
header record is processed by the HEADERCK 
routine; a source record is processed by 
the SOURCERT routine; a NUMER record is 
processed by the NUMBRRTE routine; and an 
ALIAS record is processed by the STOWNAME 
routine. 


The HEADERCK routine determines whether 
the header is valid and then sets appropri- 
ate switches depending on the type of head- 
er. If the header is not valid, an error 
message is logged and control is passed to 
the READCT routine. Vaiid headers are pro- 
cessed by MAINBODY. 
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The SOURCERT routine processes all 
source line transactions that are ina 
member whose header is either an ALDD or 
REPL. A check is made to see if the source 
is in its proper place by checking the 
ALREPOSW switch which is turned on when 
either an ALIAS or REPRO is encountered. 

If the ALKEPOSW switch is on, the source is 
cut of sequence and a message is logged via 
the LOGROUTE. Control is then passed to 
the READCT routine. If the ALREPCSW is 
off, the CTINAREA area which contains the 
source image, is moved to the OMINAREA 
area. Then, if the NSW switch is off (no 
NUMBR preceding the source), the current 
transaction is written on the new master. 
The full list switch, FLLISTSW is checked 
and if it is on, the record is logged and 
ccntrol is returned to READCT. 


The NUMBRRTE routine processes the NUMBR 
transaction which may have followed either 
a REPL or an ADD header. A check is made 
of the ADDREPSW switch, which will be on if 
the previous transaction was an ADD or 
REPL. If ADDREPSW is off, an error message 
is logged and control is passed to the 
READCT routine. If ADDREPSW is on, the 
NUMBR transaction is checked for its rfroper 
sequence within the stream of current tran- 
saction records referencing a member. 
Sequence numbers are converted and placed 
in the proper work areas. The NUMBR tran- 
Saction is logged after which control is 
passed to the READCT routine. 


The STOWNAME routine causes the previous 
member name or alias to be stored in the 
directory with the system status indicator 
(€SI) bytes (if any) via the STOWREFIL sub- 
routine. If the current transaction in 
CTINAREA is an alias, the alias, TTR, and 
user information are moved to STCWAREA. 

The alias is logged via the LOGROUTE rou- 
tine and control is passed to the READCT 
routine which reads the next transaction. 
If the current transaction is not an alias, 
control is passed to the HEADERCK routine. 


By reaching MAINBODY, it has been deter- 
mined that the header is in proper sequence 
with a member. The member name, however, 
is compared with the previous member name 
to determine if the member is in sequence. 
If the member is out of sequence, an error 
message is logged and control is passed to 
the READCT routine. If the member is in 
sequence, the directories from the old 
master and the new master are compared. 
There should be entries in both directories 
for REPL, REPRO, or CHNGE headers but no 
entry in the old master for an ADD header. 
In the event of an error, an error message 
is logged, the entire member is rejected, 
and control returns to the READCT routine. 
If there are no errors, the header is 


logged. 


If the header is a REPRO, the old master 
is read into CMINAREA; the record is logged 
if the full list switch (FLLISTSW) is on; 
and the record is then written on the new 
master. If the header is an ADD or REPL, 
control is passed to the READCT routine. 

If the header is a CHNGE, control is passed 
to the within member processor RRFINDOM. 


Beginning at RRFINDOM, the within member 
processor handles the transactions follow- 
ing a CHNGE header; i.e., source, DELET, 
and NUMBER. The member being changed is 
located on the old master data set and the 
first record is read. The current transac- 
tion file is also read and checked fcr the 
type of transaction. 


If the transaction is a source, the 
sequence number of the new master record 
and of the current transaction record are 
compared. When the old master is low, it 
is rewritten onto the new master and the 
next record on the old master is read and 
compared. When the old master is equal to 
the source transaction, the current trans- 
action is written on the new master. 


If the transaction is a DELET, the 
sequence number of the old master record is 
compared to the ‘start* sequence number of 
the DELET transaction. When the old master 
is low, it is written onto the new master 
and the next record on the old master is 
read and compared. When the old master is 
equal to or greater than the "start' 
sequence number, the old master records are 
read and deleted until a record is read 
whose sequence number is higher than the 
"end* sequence number in the DELET 
transaction. 


If the transaction is a NUMBR, the old 
Master is read and resequenced according to 
the range of sequence numbers in the NUMBR 
transaction. ‘The current transaction is 
also read and any DELET or source transac- 
tion is processed as described above. 
Source transaction may also be numbered 
sequentially. 


As the current transactions are read and 
processed, each current transaction detail 
record is logged as is the record or rec- 
ords it referenced. If a complete log is 
requested, all records placed in the new 
master data set are logged. Any errors 
detected during processing are also logged. 


Utilizing the EODAD exits, the end of 
member on the old master and the end of 
data on the current transaction data set 
are determined. Processing continues until 
the new master member is completed. All 
Switches are reset and work areas are 
cleared before returning to the member 
level processor at STOWNAME. 


After the last member is processed, as 
indicated by a /ENDUP or EOD exit cn SYSIN, 
the old master, the new master, and SYSIN 
data sets are closed. A user trailer label 
exit, if one was specified by the user via 
the EXEC card may be taken at this point to 
process user trailer labels. When this is 
dcne, a final message is logged indicating 
the highest concode obtained in the pro- 
gram. The SYSPRINT data set is closed and 
control is returned to the invoker. 
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Chart 57. IEBUPDAT 
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Creating a Modified Input Stream 
(IEBEDIT) 


The IEBEDIT program creates a sequential 
data set containing Job Control Language 
(JCL) statements and system input data by 
extracting sets of statements representing 
jobs or job steps from a master file. The 
input to the program is in two data sets: 


e SYSIN, which contains control state- 
ments that allow the user to control 
the editing of the master file of JCL 
statements and data. 

e SYSUT1, which contains the master file 
of JCL statements and data. 


The output of the program is in two data 
sets: 


e SYSUT2, which is the primary outrfut 
data set. It is composed of 80- 
character logical records containing 
the JCL statements and data records 
extracted from the master file. 


e SYSPRINT, which contains a listing of 
the control statements, and (optional- 
ly) a listing of the contents of the 
SYSUT2 data set. 


The IEBEDIT program is executed as a job 
step; the EXEC statement used to call it 
specifies the program IEREDIT. 


PROGRAM STRUCTURE 


The IEBEDIT program is contained in one 
load module whose entry point name is IEBE- 
DIT. The module contains three major pro- 
gram sections as well as a number of sub- 
routines. The three major sections of the 
program are: 


e The Initializing routine, which obtains 
Main storage for tables and work areas, 
initializes them, and opens the pro- 
gram*s data sets. 


e The Main routine, which passes control 
among the subroutines to analyze con- 
trol statements, to inspect master file 
records, to determine which records 
should be written out, and to write 
output records. 


e The Fost Processing routine, which 
stores condition codes, frees main 
storage, closes the program's data 
sets, and returns control to the 
supervisor. 


The Initializing Routine 


The entry point for the IFBEDIT program is 
the Initializing routine. When it is 
entered, the routine obtains main storage 


for an active save area and a work area, 
and opens the SYSPRINT, SYSUT1, SYSUT2, and 
SYSIN data sets. 


The Initializing routine checks the 
block size specification of each data set 
except SYSPRINT to insure that it is a mul-~ 
tiple of 80 characters. If the SYSUT2 
blocksize specification is not a multiple 
of 80 characters, it is changed to match 
the SYSUT1 specification, and a message is 
written to SYSPRINT. If the SYSUT1 data 
set is not a multiple of 80 characters, a 
message is written to the SYSPRINT data set 
and the step is terminated. 


If any data set cannot be opened, the 
Initializing routine passes control (via a 
branch instruction) to the Post Processing 
routine. Otherwise, it uses the GET macro 
instruction (locate mode) to obtain the 
first SYSUT1 record, and brancnes to the 
Main routine. 


The Main Routine 


The Main routine (Charts 58 and 59) passes 
control among subroutines that analyze con- 
trol statements from the SYSIN data set and 
master file records from the SYSUT1 data 
set. Based on the specifications in the 
centrol statements, the Main routine deter- 
mines which records are to be extracted 
from the master file, and uses the Update 
subroutine to write those records to the 
SYSUI2 and (optionally) to the SYSFRINT 
data sets. 


When the Main routine is entered (via a 
branch from the Initializing routine), the 
first record from the SYSUT1 data set is in 
main storage. The Main routine uses the 
Scan subroutine to obtain a record from the 
SYSIN data set, and to analyze the record. 


If there are no control statements in 
the SYSIN data set, the Scan subroutine 
encounters an end-of-data condition, indi- 
cating that a total copy of the master file 
is to be performed. Control is passed to 
the Update subroutine to write the record 
to the output data sets, then back to the 
Main routine to get the next master file 
record. When the master file has been con- 
pletely copied, the Main routine passes 
control to the Post Processing routine. 


If the Scan subroutine obtains a control 
statement, a selective copy is performed, 
based on the specifications in the control 
statement. The Main routine passes control 
tc the Startjob subroutine, which gets 
master file records until it finds the pro- 
per JOB statement: 
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e If the parameter START=jobname was used 
in the control statement, the Startjob 
subroutine searches the master file for 
a JCE statement with the specified 
name. 


e If no jok name was specified, the 
Startjok subroutine searches the master 
file for the next JOP statement. 


When the proper JOE statement has been 
found, the Startjok subroutine passes con- 
trol to the Update subroutine, which writes 
the statement to the SYSUT2 and, optional- 
ly, to the SYSPRINT data set. When control 
is returned to it, the Startjob subroutine 
reads the next record and uses the Cardtype 
subroutine to determine whether the record 
is a JOBLIB DD statement. 


If the record is a JOBPLIEF DD staterent, 
the Update subroutine writes it to the out- 
put data sets. The Startjob subroutine 
then obtains another master file reccrd 
from the SYSUT1 data set and returns con- 
trol to the Main routine. 


On the return from the Cardtype subrou- 
tine, the Main routine analyzes the 
switches set ky the Cardtype subroutine and 
performs the processing indicated by the 
record type and control statement 
specifications. 


If the record is an EXEC statement, its 
disposition depends on the use of the TYPE 
and STEPNAME parameters in the control 
statement. 


If TYPE=POSITION, and no stepname was 
specified, the Main routine passes control 
to the Update subroutine, and the record is 
written to the output data sets. If a 
stepname was specified, and the correspond- 
ing EXEC statement is found, the Main rou- 
tine passes control to the Update subrou- 
tine, and the record is written to the out- 
fut data sets. 
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l 
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Figure 51. 
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mattis eee poe oe ee 
EXEC Statement Include/Exclude Processing 


If TYPE=INCLUDE or EXCLUDE, the Main 
routine must determine whether the current 
record represents a step within an inclu- 
sive set, and if not, whether it rerresents 
a step whose name was specified singly. 

The routine does this with the aid of two 
taples (the inclusive stepnames table and 
the single stepnames table) and the 
inclusive/exclusive switches. 


Each entry in the inclusive stepnames 
table contains the names of the first and 
last steps in a set as specified in the 
STZPNAME parameter; each entry in the 
Single stepnames table contains the name of 
a step specified singly. The include/ 
exclude switches indicate whether inclusive 
or exclusive processing is taking flace. 


The decisions made in the program, and 

the resultant processing, are shown in 
Figure 51. The upper section of the table 
shows the conditions that may exist; the 
lower section shows the action that is 
taken as a result of each set of condi- 
tions. The action "Write" means that the 
Main routine uses the Update routine to 
write the record containing the EXEC state- 
ment, and the remaining records represent- 
ing that step, to the output data sets. 
The action, "No Write" means that the Main 
routine searches for the end of the current 
step, but does not write the records to the 
cutput data sets. 


The end of the current step is indicated 
by the presence of a JCB statement, another 
EXEC statement, or an end-of-data condi- 
tion. If a DD DATA statement is encoun- 
tered, a switch is set; subsequent records, 
although they may appear to be JCL state- 
ments, are treated as data in the input 
stream. When a delimiter statement is 
encountered, the DD DATA switch is set off; 
and if the other records in the step were 
written out, so is the delimiter statement. 


When a JOB statement is encountered, or 
when an end-of-data condition exists in the 
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SYSUT1 data set, the Main routine scans the 
list of step names constructed from the 
control statement. If any of the names in 
the list were not found, a message ccntain- 
ing the step name is written to the SYS- 
PRINT data set for each missing step. If a 
JOB statement was encountered, the Main 
routine then passes control to the Scan 
subroutine to analyze the next control 
statement; if there was an end-of-data con- 
dition, the Main routine passes control to 
the Fost Processing routine. 


The Post Processing Routine 


The Post Processing routine is entered when 
no more processing is to be performed; at 
end-of-data in the SYSUT1 data set, when 
all SYSIN statements have been processed, 
or when an unrecoverable I/O error occurs. 
When it is entered, it determines whether 
an end-of-data condition exists for the 
SYSIN data set; if not, it uses the Scan 
subroutine to process the remaining control 
statements. 


When all records in the SYSIN data set 
have been processed, the Post Processing 
routine uses the Update subroutine tc write 
a terminal message (including the condition 
code) to the SYSPRINT data set. It then 
closes the program's data sets, frees the 
Main storage that had been obtained, and 
returns control to the supervisor. 


IEBEDIT Sukroutines 


The IEBEDIT program contains four major 
subroutines: Scan, Startjob, Cardtype, and 
Update. Linkage to each subroutine is via 
a BAL instruction; return is via a BR 
instruction. 


The Scan Subroutine 


The Scan subroutine is entered to obtain 
and analyze a complete control statement: 
the initial record and any continuation 
records. When the Main routine is first 
entered, the Scan subroutine determines 
whether a total copy is required; if not, 
and when a job has been processed, it 
determines the processing required for the 
next job; and when an end-of-data condition 
occurs on the SYSUT1 data set, it is 
entered to scan the remaining SYSIN 
records. 


When the Scan subroutine is entered, it 
attempts to oktain a record from the SYSIN 
data set. If it obtains a record, it scans 
the record, converting the control state- 
ment parameters to switch settings that can 
be tested by the Main routine, and when it 
has processed the entire statement, it 
returns control to its caller. If it 
encounters an end-of-data condition, and no 
Statements have previously been processed, 


the routine sets a switch indicating that a 
tctal copy is to be performed, and returns 
ccntrol to its caller. If it encounters an 
end-of-data condition, and statements have 
previously been processed, it passes con- 
trol to the Post Processing routine. 


when the routine is entered, it uses a 
search routine to set pointers to the 
fields in the statement, then scans the 
field. The Scan routine has five phases: 
Initialization, Name/Cperator Handling, 
Operand Handling, Cperand Value Handling, 
and Scan Post Processing. 


The Initialization phase clears switches 
and resets pointers; the search routine 
finds the Name and Operator fields, and 
ccntrol passes to the Name/Cperator Han- 
dling phase. 


In the Name/Operator Handling phase of 
the Scan subroutine, the name field of the 
statement is checked for validity (it must 
be 8 characters long or less). Then, the 
ccntents of the Operator field is used as a 
search argument in a search of the Cpera- 
tion Code Table (see Figure 52). When a 
match is found, the Turn-Cn Box of the 
table is used to set the appropriate 
switches in the IEBEDIT work area, and 
pcinters to the operator and to the appro- 
priate Parameter Table (see Figure 53) are 
placed in the work area. 


Operation Code 


Figure 52. 


Scan Routine Cperation Code 
Table Entry 


Operation Code: This field contains the 
Operation Code, left justified, and padded 
with blanks. 


Turn-On Box: This field contains the dis- 
placement (byte 1) in the IEBEDIT Work Area 
and the bit pattern (byte 2) to be set at 
that displacement. 


Required Box: This field contains a dis- 
placement (byte 1) in the IEBEDIT Work 
Area, and a bit pattern (byte 2) to be 
found at that displacement. This bit pat- 
tern is required for processing of this 
statement. 
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Information Box: If bit 0 of this field is 
set to 1, this entry is the last entry in 
the table. 


Parameter Table Address: This field con- 
tains the address of the Parameter Table 
that corresponds to this operation. 


Diagnostic Routine Address: This field 


contains the address of a routine used to 
perform additional processing on the 
statement. 


Operand Value 


4 4 
Turn-On Box Assume Box 
1 3 
Information Box Address of Fixed Operand Table or Action Routine 


Figure 53. Scan Routine Parameter Table 


Entry 


Operand Value: This field contains the 
value of the operand, left justified, and 
padded with blanks. 


Turn-On Box: Byte 1 of this field contains 
a displacement in the IEBPEDIT Work Area; 
byte 2 contains a bit pattern to be set at 
that displacement as a result of encounter- 
ing this parameter. 


Assume Box: Byte 1 of this field contains 
a displacement in the IEBREDIT Work Area; 
byte 2 contains a bit pattern to be set at 
that displacement if this parameter is 
omitted. 


Address of Fixed Operand Table or Action 


Routine: If the operand is a fixed 
operand, this field contains the address of 
the appropriate Fixed Operand Table entry, 
if the operand is a variable operand, this 
field contains the address of the routine 
that is to process the operand. 


Information Box: The bits in this field 
have the indicated meanings when set to 1: 


Bit Meaning 
0 Last entry in table 
1 Fixed operand 

2 Variable operand 

3 Reserved 

4 Allow subparameters 
5 Keyword-only operand 
7 


6- Reserved 
Each operand in turn is used as a search 
argument, in the Operand Handling phase, to 


scan the Parameter Table. When a match is 
found, the Turn-On Box of the Parameter 
Table is used to set the appropriate 
Switches in the IEBEDIT work area, and a 
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pointer to the Parameter Table entry is 
placed in the work area. If the operand is 
a keyword-only operand, and there are addi- 
tional operand fields, the routine fpro- 
cesses the next field. If there are no 
additional operands, the routine passes 
control to the Scan Post Processing phase. 


If there are parameters associated with 
the keyword, the routine passes control to 
the Operand Value Handling phase. In this 
phase, the Scan subroutine inspects the Pa- 
rameter Table entry to determine whether 
the parameter has a fixed value, or whether 
the value may vary. If the parameter is a 
variakle value parameter, the Action Rou- 
tine Address field of the Parameter Table 
entry contains the address of the routine 
that is to process the parameter, and a 
branch is executed to give that routine 
control. If the parameter is a fixed value 
parameter, the routine uses the value spe- 
cified as a search argument in a search of 
the Fixed Operand Table (see Figure 54). 
When a match is found, the Turn-Cn Box 
field of the table is used to set the 
appropriate switches in the work area. 


Fixed Operand Value 


Figure 54. Scan Routine Fixed Operand 


Table Entry 


Fixed Operand Value: This field contains 
the value of the operand, left justified, 
and padded with blanks. 


Turn-On Box: Byte 1 of this field contains 
a displacement in the IEBEDIT Work Area; 
byte 2 contains the bit pattern to be set 
at that displacement when this operand is 
encountered. 


Information Box: If bit 0 of this field is 
set on, it indicates that this entry is the 
last entry in the table. 


When the parameters associated with a 
keyword have been processed, control is 
passed to the Operand Handling phase to 
process the next operand; if there are no 
more operands to process, control is passed 
to the Scan Post Processing phase. 


When a complete statement has been pro- 
cessed, the Scan Post Frocessing phase 
scans the Parameter Table for the current 
Operator, then sets the assumed (default) 
value switches for any parameters not sup- 
plied. MThe current Operation Code Table 
entry is then inspected to determine wheth- 
er any diagnostic routine has been sup- 


plied. If so, the diagnostic routine is 
given control, and when its processing is 
complete, the Scan routine returns control 
to its caller. 


The Startjob Subroutine 


The Startjob subroutine is entered from 
the Main routine with the first record of a 
master file statement in the buffer. It 
uses the Cardtype subroutine to determine 
the statement type, and it uses the Update 
subroutine to write a JOE statement and a 
JOBLIB DD statement to the output data 
sets. 


If the first statement encountered by 
the Startjob subroutine is not a JOB state- 
ment, the routine gets records from the 
master file until it finds a JOB statement. 
The Startjob subroutine then determines 
whether the START=jobname parameter was 
used, and if not, it uses the Update sub- 
routine to write the statement (including 
its continuations) to the output data sets. 


If START=jobname was specified, the rou- 
tine compares the specified job name to the 
name in the JCB statement. If they are not 
equal, the routine searches the master file 
until the proper JOB statement is found. 

In either case, the JOE statement having 
the specified name is written to the output 
data sets, and the Startjob subroutine 
reads the next master file record. 


Once a JOB statement has been written 
out, the Startjob routine looks for a JOB- 
LIB DD statement. If it encounters one, 
the routine uses the Update subroutine to 
write the statement to the output data 
sets; if the next statement is not a JOBLIB 
DD statement, the Startjob subroutine 
returns control to its caller. 


The Cardtype Subroutine 


The Cardtype subroutine classifies 80- 
character records by type. It stores a 
code for each type except system input data 
records, and if the record is a JOB or EXEC 
statement, it stores the statement nare. 
When it has analyzed a record, it returns 
control to its caller. 


The routine first examines the first two 
positions of the record. The characters // 
indicate that the record is a JCL state- 
ment, and the routine performs further ana- 
lysis. The characters /* indicate that the 
record is a delimiter statement; the rou- 
tine determines whether the statement is 
continued by checking for a nonblank 
character in position 72, then returns to 
its caller. 


If the statement is a JCL statement, the 
routine classifies it as one of the follow- 
ing types: 


e JOBLIB DD Statement: A statement is a 
JOBLIB DD statement if the name field 
contains JOBLIB and the operation 
field contains DD. 

e JOB Statement: The statement is a JOB 
statement if the operation field con- 
tains JOB. 

e EXEC Statement: The statement is an 
EXEC statement if the operation field 
contains EXEC. 

e DD Statement: The statement is an DD 
statement if the operation field con- 
tains DD. 

e DD DATA Statement: A statement is a DD 
DATA statement if it is a DD statement, 
and the first operand field contains 
DATA. 

e Continued 
continued 
statement 
ment, and 
character 


Statement: A statement is a 
statement if it is a JCL 

or a delimiter (/*) state- 
if it has a nonblank 

in position 72. 

The Update Subroutine 

The Update subroutine is a control rou- 
tine for the output functions of the IEEE- 
DIT program. It contains the Put routine, | 
which writes records to the SYSUT2 data 
set, and the Print routine, which writes 
records to the SYSPRINT data set. There 
are two entry points to the Update 
subroutine: 


e UPDATE is the entry point used to write 
records to the SYSUT1 and, optionally, 
to the SYSPRINT data set. 

e PRINT is the entry point used to write 
records to the SYSFRINT data set. 


When it is entered at the UPDATE entry 
point, the routine inspects the first three 
positions of the record in the buffer. If 
it finds the characters period, period, 
asterisk (..*), it substitutes the charac- 
ters slash, asterisk (/*); in either case, 
it branches to the Put routine. 


The Put routine contains the PUT macro 
instruction, which causes the record to be 
written to the SYSUT2 data set. When the 
PUI macro instruction has been executed, 
the routine determines whether NCPRINT was 
specified, and if so, it returns control to 
the caller. If NOPRINT was not specified, 
the routine branches to the PRINT entry 
point of the routine. 


When it is entered 
point, the routine is 
a record or a message code. It issues the 
PUI macro instruction to write the record 
or message to the SYSPRINT data set, then 
returns control to the caller. 


at the PRINT entry 
given the address of 
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eChart 58. 
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Has UPDATE 
Yes a DD Data Put Record 


and SYSPRINT 


Set 
EOF Switch 
On 


B5 


Print UPDATE 


Names of Put Red 
Any Specified to SYSUT} 


and SYSPRINT 


C4 C5 


eae 


To Post Processing Routine 
No 


E4 


Set DD 
Data Switch 
Off 


Yes (12) 


to SYSUTI 


K5 
CARDTY PE 
Get Next 


SYSUT 1 
Record 


Analyze 
Stmt. and 
Store Codes 


eChart 59. 


IEBEDIT Main routine (Part 2 of 2) 


B2 B3 
Yes Type Yes 


Was 
Stepname 
Specified 


Include 


No 


C4 


Current First 


Stepname 


Is 
his Stepname 
Specified 


Set 
Inclusive 
Switch on 


Set 
Inclusive 


Switch Off 


Set 
Position Copy 


Set 
Include/Execlude 
Switch Off 


Position 


Swi tch on 


Set by 


Include/ Exclude 


Switch on 


J3 


CARDTYPE 


Analyze 
Stmt. & Store 
Codes 


Get 
Next Master 
Record 
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FD ANALYSIS MODULE (IEBFDANL) Charts 65, 66 


CALLING PROGRAM 


CREATE ANALYSIS MODULE (IEBCRANL) Charts 69, 70, 71, 72, 73 


Entry Points: IEBFDANL (via LINK from IEBDG). Job Control EXEC ; . 
Also, on return from module IEBFDTBL. Language Entry Points: IEBCRANL (via LINK from |EBDG). 
Return Also, on return from module IEBCREAT. 
tions: Exits Taken: : LINK 
Punetions: Ren Invocation ATTACH Functions: Exits Taken: 


Get storage for FD table. 

Analyze FD card keywords and 
parameters. 

Place FD card keyword parameter 


FD table module 
Base module 


Subroutines Used: 


BASE MODULE (IEBDG) Charts 61, 62, 63 


Analyze create card keywords 
and parameters. 
Build create table entries. 


Create Module. 
Base module. 


values in FD table entry. LINK LINK Get storage for create tables. Subroutines Used: 
Place FD picture in a temporary © Validity check; EP = VALCHECK. Entry Points: IEBDG (from Calling Program). Build picture table. 
storage area. Convert decimal to binary; Also, on return from modules IEBFDANL, Build FD address table. Convert; EP = CONVDB. 
EP = CONVB. IEBCRANL, IEBDGMSG, AND IEBDGCUP, Build exit name table. FD name search; EP = FDSRCH. 
Macro Instructions Used: Move characters; Give control to create module. Parameter scan; EP = SPSCAN. 
ea Functions: Exits Taken: Return 


LINK (SVC 6) 
FREEMAIN (SVC 5) 
GETMAIN (SVC 4) 


LINK 


EP = MOVEROUT. 


Messages (Numbers) Used: 
3, 5, 6, 10, 11, 12, 13, 15, 21. 


Return 


Get storage for common work area. 
Initialize work area. 

Assign defaults 

Get storage for input and output DCBs. 
Get storage for work areas for input and 
output records. 

Open input and message data sets. 


Get storage for output work area. 
Scan all control cards: 
Process DSD, REPEAT, DUMP, 
and END cards. 
Pass control to process FD 
and CREATE cards. 
Pass control to other modules as required. 
Cause display of error messages. 
Macro Instructions Used: 


GET 
GETMAIN (SVC 4) 
LINK (SVC 6) 
OPEN (SVC 19) 
SYNADF (SVC 68) 


Message Module 

FD Analysis Module 
Create Analysis Module 
Clean-up Module 
Calling Program 


Subroutines Used: 


Convert decimal to binary; 
EP = CONVERTB. 
DCB exit (at open time); 
EPs = DCBROUT1, DCBROUT2, 
and DCBROUTS3. 
Synchronous error; 
EP = ERRORS, 


Messages (Numbers) Used: 


1, 2, 3, 5, 10, 12, 14, 15, 18, 
20, 21, 24, 25, 26, 28, 30. 


Macro Instructions Used: 
GETMAIN (SVC 4) 


LINK (SVC 6) 
LOAD (SVC 8) 


LINK 


Messages (Numbers) Used: 


3, 4, 5, 6, 7, 8, 10, 12, 20, 21 


Return 


FD TABLE MODULE (IEBFDTBL) Charts 67, 68 SYNADRLS (SVC 68) SP REATEM NOD EES UP ERAT cnet ane 


Entry Point: IEBCREAT (via LINK from IEBCRANL). 
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Entry Point: JEBFDTBL (via LINK from IEBFDANL). 


Functions: 


Complete the construction of 
an FD table entry. 

Assign defaults for FD keyword 
parameters if necessary . 

Place picture or format pattern 
in storage. 


Macro Instructions Used: 


GETMAIN (SVC 4) 
FREEMAIN (SVC 5) 


Note: EP = Entry Point 


Exit Taken: 
FD analysis module 
Subroutines Used: 
Convert EBCDIC to binary; 
EP = CONVB. 


Move characters; EP = MOVEROUT. 
Validity check; EP = VALCHECK. 


Messages (Numbers) Used: 


3, 6, 8, 10, 21. 


LINK Return 


MESSAGE MODULE (IEBDGMSG) Chart 76 


Entry Point: IEBDGMSG (via LINK from IEBDG) 


Functions: 


Exit Taken: 


Print heading information. Base Module 
Print control card images. ; 
Print program messages. 

Print error flags. Used: 


Keep page count. 
PUT 


Macro Instruction 


eFigure 55. Information Summary and Overall Flow of Data Generator Program 


LINK Return 


CLEAN-UP MODULE (IEBDGCUP) Chart 64 _ 
Entry Point: [EBDGCUP (via LINK from IEBDG) 


Functions: Exit Taken: 


Close user output and input 
DCBs. Base Module 
Close data generator input 
and message DCBs. Macro Instructions 
Free storage for DCBs, Used: 
buffer pools, and work 
areas for input and 
output records. 


CLOSE (SVC 20) 
FREEMAIN (SVC 5) 
FREEPOOL (SVC 10) 


For "field select," 
invalidate FD name(s). 


Also, on return from user exit routine. 


Functions: 


Read records from input data sets. 
Generate output records (test data). 
Permit user to modify output records. 
Release storage used for following 
tables: 

Create 

Picture 

FD Address 
Delete user routine from storage. 


Messages (Numbers) Used: 


9, 10, 16, 17, 29, 30. 


Exits Taken: 


Create Analysis Module. 
User Exit Routine 


Macro Instructions Used: 


FREEMAIN (SVC 5) 
GET 

GETMAIN (SVC 10) 
PUT 

SYNADF (SVC 68) 
SYNADRLS (SVC 68) 


The Data Generator (IEBDG) 


Program 


The data generator program (IEBDG) provides 
test data that can be used in program 
debugging procedures. The program will 
construct multiple data sets within a job 
that uses either the physical sequential, 
the indexed sequential, or the partitioned 
access method. The records within these 
output data sets may consist of fields that 
are defined by any one of seven IBM 
character formats, each of which may be 
modified by any one of eight types of 
action. Alternatively, a user may elect to 
provide his own output pattern in the form 
of a ‘picture* instead of an IBM format. 

If desired, a user may also inspect and/or 
modify the output records before the rec- 
ords are written in the test data set. 


The ILEBDG program acts as a problem pro- 
gram, which may be executed as a job step 
by use of the job control language, or 
which may ke invoked by a calling program 
using either the LINK or the ATTACH macro 
instruction. Specification of either the 
program name (IEBDG) or the procedure name 
on the EXEC statement causes control to be 
given to the data generator program. in 
the case of invocation of the IEBDG pro- 
gram, the entry point (EP) parameter in the 
Macro instruction operand specifies the 
program*s symbolic name. Job control 
statements or parameter list information, 
and the IEBDG utility control statements, 
maintain control of the program and 
describe or specify the functions to be 
performed. They also describe or define 
the input and output data sets to be used. 
Depending on the specifications of the 
user, the records of the input data set may 
ke either klocked or unblocked. 


In the case of output records, the 
fields within a record may be repeated as 
desired, and the output records may be a 
part of a logical block, which may also be 
repeated. If an existing data set is used 
as the input data to the program, the 
fields within the individual records of the 
data set may be retained, modified, or 
replaced as desired. Also, the IEBDE€ pro- 
gram may generate output records that can 
be imbedded within the records of an exist- 
ing (input) data set. The contents of the 
output (test data) records are defined by 
the utility program control statements. 


The data generator program has a “field- 
select" capability that permits specific 
fields from an input data record to be 
placed in the output record at a given 
starting point in that record. This capa- 
bility is applicable to all data sets sup- 
ported ky the program. 


Program Functions 


The functions of the IEBDG program are per- 
formed by seven modules, which reside in 
the link library, SYS1.LINKLIB. At any 
given time, at least two modules (the con- 
trol module and one or more other modules) 
will reside in the region assigned to the 
program. (If the region has enough space, 
all seven of the modules may be resident at 
the same time in the region.) The program 
contains a control module, a message 
module, two analysis modules, a table- 
building module, an output record genera- 
ting module, and a clean-up module. Con- 
trol passes within the modules of the pro- 
gram ky means of the LINK macro instruc- 
tion. If an exit to a user routine is spe- 
cified, a branch-and-link procedure is 
used. Figure 55 indicates how control is 
passed between the modules of the IEBDG 
program. 


The control (or base) module receives 
initial program control from the calling 
program and returns control to the calling 
program at the completion of the IEBDG pro- 
gram. This module scans the utility con- 
trol cards for the function (e.g., FD card 
analysis, REPEAT card analysis) to be per- 
formed and passes control to the appropri- 
ate module that performs the function. 


The message module (IEBDGMSG) has the 
prime function of putting out the images of 
the control cards, and of putting out the 
messages required as a result of program 
operation. It receives control from, and 
passes control to, the base module. 


The message module places information 
about the operation of the data generator 
on the system output (SYSOUT) device. This 
information includes processed control 
cards, heading and paging information, and 
normal completion messages. Error messages 
caused by abnormal conditions encountered 
by the data generator program also appear 
on the SYSOUT device. Incorrect control 
card parameters cause messages that will be 
printed immediately below the printout of 
the control card. Messages begin at print 
position one, and the printout of control 
cards starts at print position ten. 


Both the create analysis (IEBCRANL) and 
the FD analysis (IEBFDANL) modules analyze 
the parameters found on one of the two 
field- or record-defining control cards. 
Using the parameters found, these modules 
construct tables for use by subsequent 
modules that may require the information in 
the tables. In the case of the FD analysis 
module, control is given to the FD table 
building module, IEBFDTBL, to complete the 
construction of the table. 
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The output record generating module, cr 
create module, IEEBCREAT, controls the 
generation of the test (output) data rec- 
ords for the user. This module also passes 
control to a user exit routine if cutput 
record modification is to be performed. 


The clean-up module (IEEDGCUP) receives 
control from the base module to close the 
input and output data sets and tc release 
the storage areas that were used by the 
program. If the field select feature is 
specified, the module invalidates the 
transfer of a given FD control card across 
DSD card groups by replacing an entry in 
the FD takle built for the parameters on 
the FD card. This moduie returns control 
to the base module. 


Control Card Scanning 


Whenever any control card scanning is to be 
done, all modules within the IEBDG program 
employ the same general scanning tech- 
niques. The information to be scanned is 
piaced in an input work area to which a 
register points. Information within this 
work area is scanned one byte at a time as 
the scan method looks for a non-blank 
character in a given column. If a ncnblank 
character is encountered in column one of a 
card image, a control card name has been 
found. This name is of no significance to 
the program, and it may be up to 8 bytes in 
length; kut it must be followed by a blank 
column. The card type (DSD, FD, END, etc.) 
is then determined. If the type is not 
valid, the program is terminated. 


Following the card type and blank 
column, the finding of a nonblank indicates 
the presence of a keyword. As the scan 
encounters a keyword, an attempt is made to 
match the keyword with valid keywords in 
the program. If a match is made, a branch 
is made to the appropriate routine tc pro- 
cess the keyword. If no match is made, or 
if incorrect parameters are associated with 
a given valid keyword, an error is indi- 
cated and a message is printed. A corma or 
a blank signifies the end of a parameter. 

A continuation card is to follow when eith- 
er a nonklank character in column 72 of a 
card, or a comma followed by a blank column 
is encountered. The scan of a continuation 
card begins in column 4 of the card. 


Except for the continuation of the scan 
of a PICTURE parameter, the first nonblank 
character in a continuation card indicates 
the presence of a keyword. In the case of 
the PICTURE parameter scan continuation, 
the character (or blank) in column 4 and 
any succeeding column(s) are recognized as 
belonging to the PICTURE parameter. This 
permits the presence of imbedded blanks and 
delimiter characters in the PICTURE 
parameter. 
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THE BASE MODULE (IEBDG) CHARTS 60,61,62 
Module IEBDG is the first module of the 
data generator program to be placed in main 
storage. It is entered from a calling rro- 
gram and returns control to the calling 
program at the completion of the data 
generator program. Depending on the 
requirements encountered during the proces- 
sing performed by this module, it will give 
control to (and receive control from) one 
of the following modules: the message 
module, the clean-up module, the FD analy- 
sis module, or the create analysis mcdule. 
The primary functions of the base nodule 
are: 


e To get storage for a work area (the 
common communication area). 


e To open the input, output, and message 
data sets. 


e To read the utility control cards. 


e To cause error messages to be 
displayed. 


e To pass control to the appropriate 
module as required. 


Initialization 


Upon entry to this module, registers are 
saved for a later return to the caller. By 
use of an SVC 10 instruction, storage is 
obtained for a common communication area. 
This area is then given initial (default) 
values for ddnames, line count (for printer 
centrol), and paging information. To pro- 
vide for the specification of a random 
binary number format for the output data 
set, an initial multiplier valve is estab- 
lished for a random number generator and 
placed in the communication area. 


If a calling program has invoked the 

IEBDG program by means of a LINK or an 
ATTACH macro instruction, the previously 
assigned default values in the communica- 
tion area are replaced by the values speci- 
fied in the parameter list for the invoca- 
tion. The assigned names of SYSIN for the 
utility input control data set and SYSFRINT 
for the utility output control data set may 
be changed as a result of an invocation. 
If so, the changed names are effective for 
the duration of the job. After invocation, 
the input and output control data sets are 
then opened. 


Opening Data Sets 


If the IEBDG program is called by use of 
the job control language statements, the 
input (SYSIN) and message (SYSPRINT) data 
sets are opened and default values assigned 
as required. 


Each time a data set is opened, a DCB 
exit routine in the base module is entered. 
The entry points to this routine are deter- 
mined by the function (input, output, 
SYSIN, or SYSCUT) of the data set being 
opened. At each entry, the routine estap- 
lishes default values for the record for- 
mat, the logical record length, and the 
blocksize for the data set. 


A common section of the DCB exit routine 
is then entered to inspect the actual 
values of record format, logical record 
length, and blocksize. These values nor- 
mally have already been placed in the 
respective fields of the CCP by the cpen 
routine. 


For data sets having a fixed record for- 
mat, the common routine determines if the 
block size is an integral multiple of the 
logical record length. An integral mul- 
tiple is required; otherwise, default 
values are assigned (if not previously 
assigned) so that an integral rultiple is 
assured. 


As the DCB exit routine evaluates the 
preceding record parameters for input or 
output data sets, it sets the FLUSHSW 
Switch (at COMMON + 572)1 to one if default 
values are assigned. (If the switch is 
set, then, when the base module again 
receives control, it flushes the control 
cards and procedes to terminate the job.) 
The exit routine then returns control to 
the open routine to complete the opening of 
the data set. 


In testing for a successful data set 
opening, only the input (SYSIN) data set is 
tested Ly the base module. Pecause a user 
may not desire any messages, or may not 
have enough space available for an output 
data set for messages, the testing for a 
successful opening of the output (SYSPRINT) 
data set is done ky the message module when 
the module is first needed. 


Messages 


When messages are required during the pro- 
cessing ry the base module, a linkage is 
made to the message module. Upon return 
from the message module, processing will 


2In the discussion of the modules of the 
data generator program, references to 
locations in the common communicaticn area 
are indicated by giving the decimal value 
of the displacement, or offset, from the 
Start of the area. As an example, the 
offset of the field CONDCODE (condition 
code setting) would be given as COMMON + 
4O4. 


continue or, depending on the severity of 
the situation causing the message, a return 
is made to the calling program. [When any 
of the modules of the data generator pro- 
gram require the printing of an error mes- 
sage, control is returned from the module 
in command to the base module, which will 
then link to the message module. Depending 
on the severity of the error causing the 
message, control may or may not be returned 
from the base module to the module that was 
in command.} A condition code, CCNLDCCDE, 
(at the field COMMCN+404), is set prior to 
giving control to the message module. Uron 
return from the message module, this code 
is checked to determine the severity of the 
Situation. The base module returns control 
to the calling program by freeing the 
storage space for the common communication 
area, restoring the calling progran's 
environment (registers), and issuing a BCR 
instruction. 


After the input data set has been 
orened, a program heading message and an 
indication of any PARM field (on the EXEC 
card for the program) errors that may be 
present are placed on the SYSFRINT data 
set. 


Reading Control Cards 


The GET macro instruction is used to place 
a control card in the input work area. The 
card image is printed on the SYSPRINT data 
set, and tests are made to determine the 
type of card in the input area. For either 
an FD control card or a CREATE control 
card, the base module will give control to 
the appropriate processing module. 


For any new group of data generator ccn- 
trol cards, the first nonblank card must be 
a DSD control card. [If a blank card is 
present, it is merely flushed through and 
the next card is checked.]} In order to in- 
dicate when a DSD control card is detected, 
a switch, DSDSW (at COMMON+550), is set to 
1. This switch is tested for all but the 
DED card in a group of control cards. If 
the first card in a group is not a DSD 
card, the syntax of the other control cards 
may be checked, but the program will not be 
executed. An error message will indicate 
the reason. 


Following the test for a DSD card, the 
other utility control cards are checked for 
card types. The finding of a particular 
type causes the base module to give control 
to the proper module for processing of that 
control card. If a continuation card 
belonging to a given control card, is 
encountered, the base module gives control 
to the appropriate control card processing 
module to scan the card. Should a DSD con- 
trol card have no CREATE control card(s) 
between it and either an END card or a /* 
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card, the resulting output data set that is 
created will be a null data set (i.e., no 
picture or pattern will be produced). 


As the Lase module continues its scan, a 
check is made for a blank following the 
card type (DSD, FD, etc.) as well as for 
improper control card names or name length. 
Errors in one of these areas will cause a 
message to be printed and the program will 
not ke executed. 


Included within the routines of the base 
module is a SYNAD routine for the SYSIN 
data set. The SYNAD routine obtains unre- 
coverable I/C error information that is to 
ke printed on the SYSPRINT data set. (The 
message module contains a SYNAD routine for 
the SYSPRINT data set; the create module 
contains a SYNAD routine for input and out- 
put data sets.) After the informaticn is 
printed, control is given to the clean-ur 
module. 


Base Module Card-Processing 


The following data generator control cards 
are processed by the base module: The DSD 
card, the REPEAT card, the END card, and 
the DUMEF card. 


DSD CARD PRCCESSING: In obtaining storage 
for a user's DCB, the base module requests 
enough space (280 bytes to contain a DCB 
for an indexed sequential (ISAM) data set. 
For a non-ISAM data set, much of this space 
is unused. See Figure 56. 


Hex Dec «q—————________—_- 4 bytes,_§ —————______________»> 
Data Control Block 


60 % 


This Area Used Only for Fields 
in an ISAM Data Control Block 


100 256 
Address of next DCB 


110 272 
Address of Work Area for Input Record 
Field Select Not Used 
Switch 


Storage Area Obtained by Base 
Module for Current DCB 


108 264 


114 276 
Size of Input 
118 280 Record Work Area 


eFigure 56. 
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REPEAT CARD PROCESSING: 


END CARD PROCESSING: 


DUMP CARD PROCESSING: 


A storage area is obtained as required for 
each of the data sets described by the 
COonames on the DSD control card. In the 
case of storage for the last data set's 
DCB, the four-byte field beginning at loca- 
tion 256 (hex. 100) is zero. 


After initializing the open list for the 
appropriate DCB (input or output), the base 
module sets the DSORG field of the DCE to 
zero. When the data set is opened, the 
Ofen routine can then place the data set 
Organization parameter from the job file 
centrol block into a blank field in the 
DCB. (The data set organization parameter 
is oktained from a DD card describing the 
data set and placed in the JFCB by a job 
management routine.) 


When the base 
module scans the parameters of the REPEAT 
card, it sets an indicator, CUANSW (at 
COMMON+576), to record the finding of the 
required keyword. After each valid keyword 
is found, the numerical valve of its pararn- 
eter is packed and converted to binary. 
Since 65,535 is the largest number that can 
be held in a 2-byte storage field, any pa- 
rameter value that is greater than that 
results in a message to the progranmer. 
Acceptable values for the CUANTITY and the 
CREATE parameters are stored for use by the 
create analysis module. 


When an END control 
card is encountered, the base module gives 
control directly to the clean-up module if 
all of the required number of entries spe- 
cified on the REPEAT control card have been 
processed. Otherwise, a message is printed 
and then control is given to the clean-up 
module. Upon return from the clean-up 
module, the base module reads the next con- 
trol card (which may be either a data 
generator control card or a /* delimiter 
card). ‘there may be one or more additicnal 
groups of data generator control cards 
before a /* card. 


The reading of a 
DUMP control card causes a printout of the 
user's program and/or storage areas 
assigned 0 to nis program. When the DUMP 
ccntrol card is encountered, the base 
module places a zero in register 15 and 
forces an ABEND dump by branching to that 
register. Further description of the use 
of a DUMP control card is given in the sec- 
tion Service Aids. 
THE CLEAN-UP MODULE (IEBDGCUP) CHART 63 
when either an END control card, indicating 
the end of a group of data generator con- 
trol cards, or a /* delimiter card, indi- 
cating the end of a job, is encountered, 
the base module gives control to the clean- 
up module. 


All user input and output data control 
blocks (DCBs) that have been opened are 
closed. For each of these DCBs, any buffer 
pools that data management routines had 
obtained for use by the data generator pro- 
gram, as well as the 280-byte storage area 
obtained by the base module, are released 
to the system. 


When the field-select capability has 
been used, it is necessary to prevent pos- 
sible errors that might arise from an inad- 
vertent specification (on a CREATE control 
card) of an FD name associated with a 
closed input data set. Therefore, this 
module replaces the FDNAME field in the FD 
table with eight bytes of hexadecimal ‘FF"* 
to prevent further access to the table. In 
order to use the selected data across DSD 
groups, a user must include a duplicate of 
the FD card in question in each DSD group 
where the data is desired. 


If the entry to this module was the 
result of encountering an END control card, 
this module returns control to the base 
module for the purpose of checking for 
another group of control cards. 


If the entry to this module resulted 
from encountering a /* delimiter card, this 
module will close both the system input 
(SYSIN) and the system output (SYSPRINT) 
DCBs of the data generator program, and 
free any related buffer pools for these 
data sets. 


The storage area that was obtained for 
the data generator progran's input and out- 
put DCBs (96 Lytes each) was initially 
obtained as a part of the common communica- 
tion area Ly the bkase module. Therefore, 
the kase module will release this area 
after it receives control from the cleanup 
module. 


THE FD ANALYSIS MODULE (IEFEBFDANL) CHARTS 
64,65 


This module scans and analyzes the parame- 
ters on the FD control card. Module IEBF- 
DANL is initially entered from the base 
module. If module IEPBFDANL does not 
encounter a condition that causes termina- 
tion of the job, it will use the FD table 
module (described later on) as a subrou- 
tine. After the FD table module returns 
control to the FD analysis module, the 
latter module returns control to the base 
module. 


The FD analysis module begins the 
assignment of information to a table called 
the FD takle. This tabie is used by both 
the create analysis module and the create 
module. The FD table module completes the 
construction of the table. 


An FD table entry has 64 bytes. Storage 
for the FD table is obtained in increments 
of 512 bytes (enough for eight table 
entries) by the FD analysis module. Each 
entry contains most of the parameter infor- 
Mation (or a processed version of the 
information) from one FD control card. If 
a PICTURE keyword has been specified on the 
FD control card, the picture information is 
placed in another area of main storage. 

The FD table is shown in Figure 57. 


Upon entry to the FD analysis module, 
tests are made to determine whether or not 
the entry is due to a continuation card. 
Such an entry may be due to the continua- 
tion of the parameter string on a card, or 
to the continuation of the PICTURE parame- 
ter on a card. If the entry is due to 
either a continuation card or a picture 
continuation, storage for an FD table entry 
may already be available as the result of 
processing a previous FD control card in 
the same set of data generator control 
cards. If the entry is not due to a con- 
tinuation card, an FD table entry is to be 
constructed. A GETMAIN macro instruction 
is issued to obtain storage for an FD 
table. 


FD Card Scanning 


The scan of the actual FD card keywords and 
their associated parameters is then per- 
formed. As each keyword is encountered, 
its parameter is scanned, validated and/or 
converted if required, and then placed ina 
reserved spot in the FD table. If a key- 
word error or a parameter error is encoun- 
tered, an appropriate message will be 
printed on the system output device. The 
severity of the error determines whether 
the program is terminated at that point or 
whether modified processing (e.g., syntax 
checking only) will continue. Control and 
storage tables are constructed even for 
syntax checking procedures. 


A user may specify either the FCRMAT or 
the PICTURE keyword, but not both, on the 
same control card. The FD analysis module 
sets a switch, either FDFMTSW (at COMMON+ 
539) or FDPLSW (at COMMON+540), when it 
encounters one of these keywords. If the 
other keyword is then encountered in the 
scan of the same card, a test of the 
previously-mentioned switch for the keyword 
first encountered reveals the error. 


A user specifies the field-select capa- 
bility by including the INFUT = keyword and 
parameter either with or without the FROM- 
LOC = keyword and parameter on a control 
card. If the INPUT = keyword's parameter 
does not match a name that has been speci- 
fied on a DSD card, or is not ‘SYSIN', a 


Data Set Utility Programs: IEBDG 161 


message is issued and the program will be 
terminated. If a match is found, the 
module sets the FIELDSEL switch (in the 
DCB) to hexadecimal FF. 


For later use by the create module, the 
FD analysis module initializes the address 
(at location FDFROMAD in the FD table) from 
which the input record will be selected. 
The FD analysis module uses the FROMLOC 
keyword's parameter if it has been srpeci- 
fied. If the FROMLOC keyword and/or its 
parameter have been omitted from the FD 
control card, the module sets the FDFROMAD 
field value to the start of the input rec- 
ord (which is either at the location INBUFA 
if the input name is SYSIN or at the loca- 
tion INREC if the input name is other than 
SYSIN). 


Table 2 lists the keywords of the FD 
control card and indicates the processing 
done on the parameters of the keywords by 
the FD analysis module. 


After the keyword parameters on the FD 
control card have been scanned and placed 
in the FD table, the FD analysis module 
gives control to the FD table module to 
complete the construction of the FL table 
entry. The FD analysis module assigned 
only the initially specified values of pa- 
rameters to the FD table. If any keyword 
except LENGTH and NAME was omitted from the 
FD control card, the FD analysis module 
does not perform processing for the keyword 
and does not fill in the appropriate space 
in the FD takle entry. Default values, if 


any, for keyword parameters are assigned by 


either the FD analysis module or the FD 
table module. 


THE FD TABLE MODULE (IEBFDTBL) CHARTS 66, 67 


This module completes the constructicn of 
the FD table, which was begun by the FD 
analysis module, At the time of entry into 
this module, an FD card has been completely 
scanned and initial values from the card 
have been placed in the FD table. The FD 
analysis module uses a LINK macro instruc- 
tion to give control to the FD table 
module, which is then used as a subroutine 
by the FD analysis module. The FD table 
module returns control to the FD analysis 
module. 


FD Pattern Construction 


Initially, module IEBFDTEL determines the 
type of picture or format specified in an 
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FD control card. (This field will be used 
by the create module when it constructs the 
output records.) If neither a picture nor 
a format is specified, the FD table module 
assigns a default value to the field. 


Before further processing is done ona 
ncen-EBCDIC picture, the picture numbers are 
checked for validity by comparing the zone 
bits of the numbers against a hexadecinal 
"F". An incorrect value results in an 
error message indication, and control is 
returned to the calling module. [A picture 
having a packed decimal specification must 
have a length specification that is less 
than or equal to 16 since the Pack instruc- 
tion can handle up to 16 bytes.} Ctherwise, 
the numbers are converted to the specified 
form, storage is obtained for the ficture, 
and the picture is moved into the storage 
area (from the temporary storage area into 
which the picture had been placed by the FD 
analysis module). The temporary storage 
area is then released and the FD table 
module gives control back to the FD analy- 
sis module. 


Except for the NAME, LENGTH, INFUT, and 
FROMLOC keywords, the FD table module 
assigns default parameter values for each 
keyword that is omitted from an FD control 
card. The values assigned are shown in 
Table 2, and they are placed in the FD 
table. 


For a pattern, which may be either a 
user EBCDIC picture specification cr an IBM 
format specification, module IEBFDTEL 
determines the action that is specified on 
the FD control card. Based on this deter- 
mination (including a possible default 
determination), the module makes an entry 
in the FDACTION field of the appropriate FD 
table and sets the appropriate bit in the 
FDCSWIICH field of the table to one. 


The module then determines the amount of 
storage required to hold the pattern. The 
arount of storage required depends on the 
action which the create module will later 
apply to the pattern. By means of the GET- 
MAIN macro instruction, the FD table module 
obtains the necessary storage. To provide 
for a wave or a ripple type of action, the 
storage area must contain two contiguous 
copies of the pattern. If the action is a 
roll, three contiguous copies of the pat- 
tern must fit in the storage area. The 
create module requires the repeated pat- 
terns when it generates the output records. 


FDNAME (FD Field Name) 


8 8 
FDREPNM (input Data Set Name for Field Select Option) 
10 #16 
Unused at Present FDINDNUM (index number) 
18 24 
FDLGTH FDCYCLE FDACTION FDFORMAT 
(FD Field Length) (Cycle Number) (Action) (Format Patterns) 
20 = 32 
FDSWITCH FDFILL FDSIGN FDCHAR FDRANGE 
(Action * (EBCDIC or (Decimal or (Starting Char. (Range Number) 
Switches) Hex Char. ) Binary Field) | of field) 
28 40 
FDOBUF FDFRINC 
(Starting Location in (‘From' Address ('From' Add iain Picture) 
Output Record) Increment Counter) om eee vane eee 
30 «648 
2 2 2 
FDMLGTH FDTOINC FDCYCCNT FDSLGTH 
(Move Length Counter) ('To' Address Increment Counter) (Cycle Count) (Sequence Length) 
38 = 56 1 1 
FDSLGTHR FDFRINCR FDTDINCR LTDFREE 
(Sequence Length (‘From' Increment] ('To' Increment (Length of Storage 
Restore Value) Restore Value) Restore Value) to Free) 
40 64 
Room For Seven More 64-Byte FD Table Entries (as above) 
200 512 
NXTFDTAB 
Address of Next FD Table. (If none, value is Zero) 
208 520 


“OFFSET 32(19) BIT 0 1 2 3 4 5 6 7 
SWITCH INDBYNAM PASS FXACTION RPACTION RDACTION WVACTION STACTION NUACTION 


eFigure 57. FD Table Constructed by FD Analysis Module and FD Table Module 
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eTable 2. FD Control Card Keyword Parameter Processing, and Default Values Assigned, if 
Required 
(Sees n eae re ge a ag ty ene te eee ee ee Ven ee 1 
| FD | Processing Applied to Keyword Parameter | Default Value | 
[| fee ===-- -------- my------- ++ === -----------~------------ -4 | 
| Keyword |Validity| Value | Other Processing | (If any) ** | 
| | Checked |Converted | | | 
}-------~-~- t-------- fran n----nnfnn nn --- === === --- t------—---------- { 
| NAME * | Yes | No |Length checked for maximum of eight j|None. | 
| | | |jcharacters. | | 
[----------- $-------- $--~------ oan n nnn nnn nn nnn nein 4------------------ : 
| LENGTH * | Yes | Yes |None. | None. | 
----------- banana penn nnn nnn nnn nnn nn nnn nnn nf of 
| INPUT | Yes | No |Check for value "SYSIN" or for match-|None | 
| | | Jing name on DSD card. Set action | | 
| | | |switch for "fixed'. | | 
fom nn nnn }-------- fo nnn nf nnn nnn nnn nnn nn nnn nnn= ------------------ : 
| FROMLOC | Yes | Yes |Value is temporarily placed at |Start of Record | 
| | | |FDMLGTH in FD table. It is used in | | 
| | | |determining the “from” address for | | 
| | i |field-select option. | | 
wa~2------- banana nn nf nnn nnn nn pn nnn nnn nnn nnn nnn nnn fn nnn nnn 
| START LOC | Yes | Yes |Subtract one from value. |First available | 
| | | | jbyte in record. | 
}----------- t-------- $--+<------ anne tonne : 
| PICTURE | Yes | Yes |Check for occurrence of FORMAT | None. | 
| (Length) | | | keyword. | | 
----~------ fon n nnn penn nnn nn errr nr rrr rrr nnn nfo ccrmncnannn nd 
| PICTURE | No | No |Get storage for picture. {Fill character. | 
| (field) | | |Determine tyre of picture. | | 
| | | |Move picture to storage. | | 
| | | | (Include continuation | | 
| | | | cards.) | | 
}----------- t-------- $--------- fran n nnn nrc tocennaoe : 
| FORMAT {| No | No |Check for occurrence of PICTURE {Fill character. | 
| | | | keyword. | | 
| | | {Check for two-character pattern. | | 
p----------- t-------- }---------}------------------------------------- }------------------ { 
| ACTION | No | No |Check for twc-character type. |FX (Fixed) | 
}----------- $-—---—-- t--------- Hannan nanan --------~-------—- { 
{FILL | No | Yes {Check for EBCDIC or Hex type with {Binary zeros. | 
| | | (Hex | two digits. { | 
| | | only) | | | 
}----------- }-------- ¢--------- 4-------------~------------------------ 4--------~--------- 4 
| CYCLE | Yes | Yes |None. | Cne. | 
~~-2--~~--- bana nnnnpnn nnpnnnnnnn nn ennfnnn 
| RANGE | Yes | Yes |None. | None. | 
--~-------- bonaan--n p= +--+ ff 
|CHARACTER | No | No |None. JA (for alphabetic | 
| (of FCRMAT) | | | Jand alphameric). | 
| | | | |*blank'" (for | 
| | | | |collating). | 
Ean aceale ae | eee mie accra Sg ag SAPS NES cc SD 1 
| SIGN | No | No |Determine if sign value is valid. | Flus. | 
w2~-—=---= Sa SN Rn Pooeaeeeateeteetate 
| INDEX | Yes | Yes |None. | None. | 
i Eel Mat i ae 4----—---1-—-------4---- -------- - - +--+ +--+ + ----- - +--+ 1 +--+] 
|* These keywords are required to be present in the FD control card. If not present, | 
| the program will be terminated. | 
|** Default values, except for FROMLOC, are assigned by FD table module. | 
beet ee ee eee ee ee ea ee ea eae eae ee a eee J 


After storage is obtained to accommodate 
the desired pattern action, the module 
places the specified fill character or a 
default fill character in each byte of the 
area. It then moves the pattern into the 
storage area the required number of times. 
Any leftover space (due to differences in 
field length and picture length specifica- 
tions) contains the fill character. 


If a PICTURE keyword had been specified, 
the temporary storage area that the FD ana- 
lysis module had used to hold the ficture 
is released Lefore the FD table module 
returns control to the FD analysis module. 
If a FORMAT keyword had been specified, the 
Starting character for an alphabetic, 
alphameric, or a collating sequence field 
is resolved before control is returned to 
the FD analysis module. For other formats, 
the storage field is initialized to a value 
that depends on the format specified. (For 
binary format, the value is a binary 1; for 
packed decimal, the value is a packed 
decimal 1; for zoned decimal, the value is 
a zoned decimal 1.) 


For the FD table module, a 63-byte 
sequence of characters resides in storage 
at location CCPAT. The 28th byte of this 
sequence is at location ALPAT. After 
resolving the starting character for an AL, 
AN, or CC format, the module fills the pat- 
tern field using the characters of this 
sequence. If the starting location value 
is a default value, a collating sequence 
pattern Ltegins at location COPAT, and an AL 
or AN pattern begins at location ALPAT. 


The pattern field is filled only in 
increments that are equal to or less than 
the length of the sequence that is being 
used for the format pattern. If the length 
of the field (given at decimal offset 24 in 
the FD table) to be moved is less than the 
indicated sequence length, the number of 
characters moved will be equal to the 
FDLGTH field value. If the length of the 
field to ke moved is greater than but not 
an integral multiple of the indicated 
sequence length, the number of characters 
moved for all moves but the last will be 
equal to the sequence length. The last 
move will contain the characters remaining 
after an integral number of moves have been 
made, each move containing the number of 
characters in the given sequence. If the 
FDLGTH value is equal to an integral mual- 
tiple of the sequence length, the number of 
moves is equal to the integral number. 


THE CREATE ANALYSIS MODULE (IEBCRANL) 
CHARTS 68,69,70,71,72 


This module scans and analyzes the parame- 
ters on the CREATE control card. The ini- 
tial entry to module IEBCRANL is from base 


module when a CREATE card is encountered. 
Other entries to the module occur when cre- 
ate continuation cards or create card con- 
ments cards are encountered. If the create 
analysis module does not encounter a condi- 
tion that suppresses the creation of output 
records, it will use the create module as a 
subroutine to generate output records. The 
create module will return control to the 
create analysis module, which will, in 
turn, return control to the base module. 


Table Construction 


Ihe create analysis module constructs four 
types of tables that are used by the create 
module: 


e The create table 
® The picture table 
e The FD address table 


e The exit name table 


The create table is the largest of the 
four. It may contain one or more create 
entries. Module IEBCRANL establishes a 
28-byte create entry for each CREATE con- 
trol card that it processes. (See Figure 
58.) One create table may contain up to 18 
create entries. These entries contain 
pointers to picture tables and FD address 
tables. More than one create table may be 
constructed. 


The picture table contains information 
about, as well as the actual, picture 
string that may be specified on a CREATE 
card. 


The FD address table contains the 
addresses of the FD table that have been 
ccnstructed to contain information from FD 
cards. 


The fourth type of table that the create 
analysis module constructs is the exit name 
table. ‘his table contains the nanes of 
any user exit routines that have been spe- 
cified. When a user's exit routine is 
loaded into main storage, the storage 
address of the routine is placed in the 
create table. 


Module Entries 


Since the create anaysis module may have 
been entered before in processing a given 
group data generator control cards, the 
initial analysis performed upon entry to 
the module consists of determining the 
cause for the module's receiving control. 
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The create continue switch, CRCSW (at 
COMMCN+564), is tested for this purpose. 

If the entry to the module is the first one 
for a given CREATE control card, storage 
for a create entry is obtained either from 
an existing create table or by the issuance 
of a GETMAIN macro instruction for space 
for another 512-byte create table. (As 
each new create table space is obtained, it 
is "chained' to the previous space and ini- 
tialized to all zeros.) Then, the module 
scans the control card keywords one at a 
time. if an invalid keyword is encoun- 
tered, the create analysis module indicates 
a message, sets the NOGOSW switch (at 
COMMCN+551) to suppress the creation of 
output records, and gives control back to 
the kase module to continue the checking of 
syntax on other control cards. 


If the entry to the create analysis 
module is due to a continuation of a CREATE 
control card, a check is made to determine 
if the parameters of either the NAME key- 
word or the PICTURE keyword were inter- 
rupted. (Except for the NAME and PICTURE 
keyword parameters of the CREATE card, all 
other CREATE card parameters must be on the 
same card as their associated keywords. 

The picture string parameter of the PICTURE 
keyword is the only one that may in itself 
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be continued to another card.) The name 
continue switches, NAMCSW1 and NAMCSW2 (at 
COMMON + 561), and the picture continue 
Switches, PICCSW1, PICCSW2, and PICCSW3 (at 
COMMON + 562), are tested to determine if a 
parameter may be on a continuation card. 
Fcr a continuation card, the scan begins in 
coiumn 4. 


If the entry to the create analysis 
module is because of a comments continua- 
tion, control is given to the base module, 
IkBDG, to process the comments, and to read 
the next control card. 


Module Subroutines 


As the create analysis module processes 
each valid keyword, it may branch to sub- 
reutines within the module. These subrou- 
tines perform functions of parameter scan- 
ning (SPSCAN routine), packing and/or conv- 
ersion (CONVDB routine), and table search- 
ing (FDSRCH routine). When the processing 
for a given keyword is completed, the key- 
word scanning section of the module scans 
the next keyword unless a continuation card 
has been indicated. If the latter action 
has occured, module IEBCRANL gives control 
to the base module to read the next control 
card. 


Address of Next Create Table 


QUAN 
(Quantity value for this entry) 


EXITADDR 
(User's exit routine address for this entry) 


} 


(Not used) 


(begin next create entry) 


(last FDADTAB in Create Table) 


NXTCRTE 
(Address of next create entry in this table) 
Cc 
IDCBPTR 
(Address of input DCB for this DSD group) 
14 
FILLCH 
PICPTR . 
Picture table aie for this ent Fill character 
Y for this entry 
1c 
FDADTAB 
(Address of FD Address table) 
24 
space for 17 more create entries 
(476 bytes) 
1F4 
IFC 
* Physical displacement from start of 512 byte area. 
eFigure 58. Create Table Constructed by Create Analysis Module 


THE SPSCAN SUBROUTINE: The function of the 
SPSCAN subroutine is to check the validity 
of a keyword parameter. The routine moves 
a pointer across each character in the pa- 
rameter and checks for commas, blanks, and 
parentheses. It also determines whether a 
parameter has keen extended into column 72 
of a control card. If so, an error message 
is indicated and control is given back to 
the Ease module. 


After a comma or a blank is encountered, 
the parameter length is determined and 
checked for an invalid length of zero, and 
the routine returns control to the calling 
section of the module. (An invalid parame- 
ter length causes the module to indicate a 
message and return control to the base 
module.) 


THE CONVDB SUBROUTINE: The convert subrou- 
tine, CCNVDB, performs two functions: it 
converts a decimal number to a packed 
decimal number, and it converts a decimal 
number to a binary number. The subroutine 
is used in processing the parameters of the 
QUANTITY, the NAME, and the PICTURE key- 
words. The convert subroutine processes a 
number that can be contained in 4 bytes or 
less. Therefore, a decimal value that is 
greater than 2,147,483,647 will not be pro- 
cessed, and a message will be indicated. 
Module IEBCRANL then returns control to the 
base module. 


In order to determine if a parameter to 
be converted is numeric, the zones of its 
characters are compared against a hexadeci- 
mal *F.* Valid numeric characters are then 
converted to a packed decimal format and 
placed in the storage area Q (at COMMON+ 
216). For all cases except a packed decim- 
al picture specification, the parameter 
value is then converted to a binary value 
and placed in a general register. 


ThE FDSRCH SUBROUTINE: Module IEBCRANL 
contains and uses the FDSRCH subroutine in 
processing the NAME keyword parameter. The 
subroutine places a valid name from the 
CREATE control card into storage and tnen 
compares this name against the names of the 
FL tables (which have been established by 
the FD analysis module). If the list of FD 
tables does not contain a name that matches 
the name on the CREATE card, a message is 
indicated and the create analysis nodule 
returns control to the base module. 


When an FD table name that compares with 
a CREATE card name parameter is found, the 
address of the FD table bearing that nare 
is placed in an FD address table. (See 
Figure 59.) If there is no room in an 
existing FD address table, the FDSKCH sub- 
routine will obtain storage for a new 
table. ‘The current create entry, whose 
address is given at CURCRTE (COMMON + 316) 
ccntains the address of the first FD 
address table. Alli FD address tables are 
chained together by pointers in the tables 
themselves. 


Keyword Processing 


Io determine if all keywords on a given 
CREATE card have been processed, module 
IEBCRANL tests the column after the last 
parameter of each keyword. If this column 
is blank and if column 72 of the ccntrol 
card is blank, the last parameter on the 
card has been processed. The module then 
establishes a default value for the CUANTI- 
TY keyword parameter if a value has not 
already pneen supplied on a CREATE contrcl 
card. 


If there are no more continuation cards 
for a given CREATE control card and if the 
create value (from a preceding REPEAT con- 
trol card group) is equal to one, module 
IEBCRANL gives control to the create 


Hex Dec =r bytes SSS SSS SS ae 
0 0 


ADDRESS OF NEXT TABLE 


FD TABLE ADDRESS 


eee ee - - - -- --- 


FD TABLE ADDRESS 


i} 
58 88 
Figure 59. 


FD TABLE ADDRESS 


FD TABLE ADDRESS 


space for 16 more FD table addresses 


FD Address Table Constructed by Create Analysis Module 
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module, IEBCREAT. Otherwise, if the create 
value (determined by testing the field 
CREATENO at COMMON + 18) is greater than 
one, the create analysis module gives con- 
trol to the kase module to read the next 
CREATE control card. (The field CREATENO 
is initially set to one in case a CREATE 
card is not part of a REPEAT card group.) 


If the column after the last parameter 
contains a comma, the next card column is 
checked. If this next column either is 
column 72 or contains a blank, the module 
gives control to the base module tc read a 
continuation card. Otherwise, either a 
message would have been indicated and con- 
trol returned to the base module or the 
subroutine for scanning the next keyword 
will be entered. 


When the create analysis module pro- 
cesses the parameter of the DDNAME keyword, 
it tests the number of characters in the 
DDNAME and determines whether the parameter 
value is SYSIN. If the name length is 
valid and the name is SYSIN, the address of 
the SYSIN data control block (at COMMON + 
116) is placed in the create entry (whose 
address is given at COMMCN + 316) for the 
CREATE card keing processed. If the name 
is not SYSIN, the input [CRP(s) are scanned 
to find a name equal to the CREATE card's 
ddname. In doing the scanning, the address 
of the first input DCE is placed in the DCB 
pointer (at CCMMCN + 300). The name of the 
DCB (at DCBD + 260) is compared to the 
ddname given on the CREATE card. Unless an 
egual name is found, the process repeats 
with the next input DCE until there are no 
more input DCBs to check. If a successful 


Address of next exit name table 


8 8 
10 16 
18 24 
1 1 
| | 
t i 
: t 
t 
' ] 
| | 
| 

1 | 
48 72 
Figure 60. 
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DCB name comparison is made, the input DCB 
address is placed in the create entry. 
Otherwise, a message is indicated and the 
create analysis module gives control to the 
base module. 


If the ddname search was successful, 
either the given delimiter or a default 
delimiter is placed in the DELIM field (at 
COMMON + 344), or a message signifying an 
invalid delimiter is indicated and the cre- 
ate analysis module returns control to the 
base module. 


when the EXIT keyword is encountered, 
the length of the user's exit routine name 
is checked for validity. If the length is 
valid, the name is placed in a table called 
the exit name table (see Figure 60). The 
user's routine is then placed (via a LCAD 
macro instruction) into main storage, and 
the storage address of the routine is 
placed in the create entry. 


THE NAME KEYWORD: In processing the param- 
eters of the NAME keyword, module IEBCRANL 
searches for multiple names, for ‘copy'‘ 
Groups (kased on the CCPY keyword), and for 
breaks or interruptions in series of names 
within outer and/or inner parentheses. If 
tne COPY keyword is not present and if rul- 
tiple names have been indicated (by 
encountering a left parenthesis in the 
scan), a default value of one is assigned 
to the COPYVAL field (COMMON + 640). 


The complete processing of the NAME key- 
werd parameter(s) includes the use of the 
subroutines FDSRCH, SPSCAN, and, if the 
COPY keyword is present, the CONVDE suprou- 


8 Bay $$ 


user exit routine... 


user exit routine... 


Space for 6 more user exit routine names 


User Exit Name Taple Ccnstructed by Create Analysis Module 


tine. If multiple names are present, the 
SPSCAN and FDSRCH subroutines are used for 
each name that is encountered. The create 
analysis module indicates that there is a 
continuation in the parameters of the NAME 
keyword ky setting switches in the NAMCSW 
field (CCMMCN + 561) of the communication 
area. If the continuation occurs after a 
‘name’ subparameter within only the cuter 
set of parentheses, the high-order bit (bit 
0) of the NAMCSW field is set to one. For 
a continuation indication that occurs after 
either the CCPY keyword or a ‘name" sub- 
parameter within the inner set of paren- 
theses, the second bit (bit 1) of the 
NAMCSW field is set to one. 


If an inner group of names is to be 
copied more than once, the create analysis 
module checks the current FD address table 
for enough space each time a name is to be 
copied. If space is not available, storage 
for a new 88-byte FD address table is 
oktained, and the new table is chained to 
the previous one by the first word in the 
current FD address table located at the 
address given in the CURFDGM field (COMMON 
+ 632). 


THE PICTURE KEYWORD: This section 
describes the processing of the PICTURE 
keyword parameters. The PICTURE length ,fa- 
rameter is processed first; the start loca- 
tion of the picture string is then pro- 
cessed; and the actual picture processing 
is done last. In the case of the PICTURE 
keyword parameters, there are three ways in 
which a continuation card may be 
encountered. 


1. The PICTURE parameter list may be 
interrupted after the length parame- 
ter. In this case, the first (high- 
order) bit of the PICCSW field (COMMON 
+ 562) is set to one. 

2. The PICTURE parameter list may be 
interrupted after the startloc farame- 
ter. In this case, the second bit of 
the FICCSW field is set to one. 


Start-of-Picture offset from 
beginning of record 


~-------0 


3. The actual picture string may be 
interrupted. In this case, the third 
kit of the PICCSW field is set to one. 


Chart 70 indicates the entry points to the 
section of the module in which processing 
for the continuation card relating to each 
of the above ways of interruption takes 
place. 


In processing the length parameter, the 
module first scans the length and then 
coverts the length value to a binary equiv- 
alent. Based on this length, the module 
oktains a storage area called the picture 
table. (See Figure 61.) The binary length 
value is then placed in the field FICIGTH, 
which begins at the fifth byte of the asso- 
Ciated picture table. The picture table is 
lccated at an address given in the FICBASE 
field (at COMMCN + 664) of the communica- 
tion area. This same picture table address 
is also placed in the create entry for the 
current CREATE card. 


The start location (startloc) parameter 
is scanned; if valid, it is converted to a 
binary value; and the value is then placed 
in the associated create entry. As it does 
after the length parameter, the module then 
checks to see if the next parameter is on 
the same or a continuation card. If a con- 
tinuation card is indicated, the module 
returns controi to the base module to read 
the next card. Otherwise, the picture 
string will be processed. 


If the picture string is specified as 
being in EBCDIC (character), the string 
characters are moved directly from the card 
to the picture table. If the picture 
string is to be continued, the continuation 
Switch (second bit of the field PICCSW) is 
set to one, and control is returned to the 
base module to read the next card. 


If the picture string is specified as 
being in either packed decimal or binary, 
the complete string must be cn one card. 
Ine card format is checked, and if valid, 
the string value is converted either to a 


PICTURE STRING 


PICTURE arias (Bytes) 
L 


PICTURE STRING (Continued) 


+6 A | 


Note: L is equal to the value specified as the length subparameter of the PICTURE keyword on the related CREATE control card. 


Figure 61. 


Picture Table Constructed by Create Analysis Module 
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packed decimal value or to a binary value 
as specified on the control card. The con- 
verted vaiue is then placed in the ricture 
takle for use by the create module. 


After each parameter on the CREATE ccn- 
trol card has been processed, the create 
analysis module checks for a valid delimit- 
ing character and for an indication cf a 
continuation card. 


THE CREATE MCDULE (IEBCREAT) CHARTS 73,74 


The create module maintains control cver 
the generation Of output records. tThis 
module receives control from the create 
analysis module after create entries (in 
one or more create tables) and related 
takles have keen constructed. If, ufon 
entry to this module, the switch, NOGOSW 
(at COMMCN + 551), is on as the result of 
the action of a previous module, the 
generation of output records will be sur- 
pressed and the create module will perform 
only its clean-up functions. Module IEB- 
CREAT always returns control to the create 
analysis module, which then returns ccntrol 
to the kase module for the printing of mes- 
sages and/or the reading of the next con- 
trol card. 


Cutput Record Modifications 


Upon entry to the create module, the NOGOSW 
switch is tested to determine whether to 
continue processing or whether to immedi- 
ately release storage areas and return con- 
trol to the create analysis module. If 
processing is to continue, the record 
characteristics (length, format) are deter- 
mined; a counter, RECREM (at COMMON + 348), 
is initialized with the quantity value from 
the create entry; and the input record size 
(if present) is compared to the output rec- 
ord size. The output record field is then 
filled with the create entry fill character 
prior to reading in a record from an input 
DCB. 


FD TABLE MCDIFICATION: If there is no 
input DCE, modifications based on values in 
the FD table(s) are made directly to the 
output area containing the fill character. 
Otherwise, the modifications are made to 
the input record that has overlaid the fill 
characters in the output area. 


The modifications based on the FD table 
values involve the action, index, cycle, 
and range parameters from the FD control 
card. Initially, an FD pattern at the 
storage address given in the field FDFROMAD 
of an FD table is moved to the output area, 
which, at this point, contains either a 
fill character or an input record. the 
create module then inspects other FD tables 
that may have been indicated by the CREATE 
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ccntrol card as belonging to the current 
create entry and moves the patterns fron 
these takles into the output area. The 
output record starting location for each FD 
pattern is given in the field FDCRUF ct the 
FC table. Note, that as each modification 
is made to the output record, it may over- 
lap part or all of a previous modification 
Gepending on the starting location specifi- 
cations involved. 


2 


PICTURE AND USHR MODIFICATICNS: After the 
create module moves the FD pattern(s) to 
the output record area, the module moves in 
the picture string from the CREATE control 
card, if the PICTURE parameter has been 
specified. Otherwise, or after the picture 
string has been moved, module IEBCKREAT 
determines if a user exit routine is rre- 
sent. If so, it indicates that a user may 
desire to inspect and/or modify the record 
before it is placed on the output device. 
An exit is taken to permit user modifica- 
tion if this is the case. After the user 
routine (if one is used) gives control back 
tc the create module, the create mcdule 
checks the return code that has been placed 
in register 6 oy the user's routine. If 
the job is not to be terminated at this 
point, the create module places in the out- 
put data set the record that is in the out- 
put area. If termination is to take place, 
an indicating switch (FLUSHSW or FLUSHSW1 
depending on tne return code) is set, 
storage areas are released, and control is 
given to the create analysis module, which 
then gives control to the base module. 


Updating the FD Table 


After each record is placed in the output 
data set, certain values in each applicable 
FD table are updated to prepare for the 
next output record that is to be created. 
Multiple references, by the same create 
entry, to the same FD table are indicated 
by the setting of a ‘pass'" switch (bit one 
of the FDSWITICH field). If this occurs, 
the FD table is processed (and updated) 
only once. 


For the binary, packed decimal, and 
zoned decimal patterns, the create module 
performs the following actions by using FD 
table values: 


e The cycle count field (FDCYCCNT) value 
is incremented if the cycle value 
(FDCYCLE) is other than zero. 


e The pattern values are then converted 
to a binary equivalent, if not already 
kinary, and placed in a work area 
(register 4). The module then incre- 
ments the binary-equivalent pattern 
value by using the index number 
(FDINDNUM). 
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e The incremented pattern value is then 
tested against the range value given in 
the field FDRANGE. If the range value 
has keen exceeded, the current pattern 
value in the storage area to which the 
FD takle refers is not changed. Other- 
wise, the indexed binary value is 
reconverted to a decimal form if neces- 
sary and placed in the storage area. 


For a random number format, the random 
generator routine of the create module pro- 
vides another value to be used for the next 
record and places the value in the pattern 
storage area to which the FD table refers. 


For alphaketic or character patterns, 
the generation of the pattern to be flaced 
in the output area for the next record 
requires that values of the ‘from' address 
in the FD takle and the ‘to’ (or output 
work area) address be changed. These 
addresses are used in moving the pattern 
(or a part of it) from the pattern storage 
area to the output record area. In the FD 
takle, there are two fields (FDFRINC and 
FDTOINC) that contain the increment values 
used to modify the ‘from* and the ‘to' 
addresses. These fields initially contain 
a value of zero for the first output rec- 
ord. For suksequent records, the values 
may be incremented by values given in the 
increment restore fields (FDFRINCR and 
FDTOINCR) of the FD table. 


The FD table module established the 
values of the increment-restore fields 
after the specified action had been deter- 
Mined. Table 3 lists the values of the 
increment-restore fields for the various 
actions that may be specified. 


Table 3. Values of Increment-Restore 
Fields in the FD Table 
oa a SON ba Cialaiues ia ei iaar cares ie | 
| | FDFRINCR | FDTOINCR | 
| [| (*From® Incre- | ('To" Incre- | 
|Pattern |jment Restore) | ment Restore) | 
~-----~-- t-----------=--- EP { 
|Shift | 1 | 0 | 
| Left | | | 
|Shift | 0 | 1 | 
[Right | | | 
{Truncate | 1 | 1 | 
| Left | | | 
{Truncate | 0 | 0 | 
|Right | | | 
{Roll | +1 (*)~ =| 0 | 
| | -1 | | 
|Ripple | 1 | 0 | 
|Wave | 1 | 0 | 
| Fixed | 0 | 0 | 
al ite £-—-------—--—-~-1-~-—-----------| 


|*This value will alternate between +1 and| 
| -1 as the roll pattern is developed in | 
| first one direction and then the other. | 


Depending on the action specified in the 
FD table, the create module may vary the 
values of the move length counter field, 
FDMLGTH, and the sequence length counter 
field, FDSLGTH, to prepare for the next 
output record. Table 4 summarizes the 
changes that may occur to values of fields 
in the FD table as the create module 
generates output records. 


After all FD tables to which a given 
create entry refer have been updated, the 
create module inspects the NXTCRTE field 
(in the create table) to determine the 
address, if any, of the next create entry 
to be processed. (When there are no rore 
create entries to be processed, the NXTCRTE 
field of the current create entry contains 
zeros.) If there is another to be pro- 
cessed, the create module will process the 
entry in the manner already described. 


If there is a repeat function to per- 
form, the entire list of create entries 
must be processed as many times as neces- 
Sary to satisfy the repeat requirerent. 
When that is done, the clean-up functions 
of the create module will be performed. If 
there is no REPEAT card function to perform 
for the current set of data generator con- 
trol cards, the field REPEATNC (at CONMCN + 
16) contains zeros. 


After the last create entry has been 
processed, the create module will release 
the storage areas that have been obtained 
for create tables, FD address tables, and 
the CREATE card picture string. The module 
then resets switches and communication area 
field values for an initial entry to the 
create analysis module, and returns control 
to the create analysis module. 


THE MESSAGE MODULE (IEBDGMSG) CHART 75 


Message module IEBDGMSG is entered from the 
base module whenever there is an indication 
of a message to be printed, or placed on 
the output device. To indicate the need 
for a message, the other modules of the 
data generator program set a message number 
in the MS field (at COMMON + 406) of the 
communication area. 


This module places four types of mes- 
sages on the output device: heading mes- 
sages, control card images, error messages, 
and error flags (messages). The messages 
used for headings and errors exist as 121- 
byte entries within the message module. 

The location of each message within the 
module is contained in a 4-byte address 
entry in a message pointer table. 


Before any messages are placed on the 
output device, module IEBDGMSG determines 
if the output data set has been successful- 
ly opened. If it has not been opened, con- 
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Table 4. 


Changes Made to FD Table Values as Create Module Builds Cutput Records 


 alamaios ow gelatin De ee ip a ae aaa a pe gee eg Te ee ee ee a ere 1 
| Field | Format | Change | 
}--------- banana nnn fon nnn nnn nnn nnn nnn anna nn nnn nnn nn nnn { 
|FDCYCCNT | Numeric |Increase by 1. When = FDCYCLE value, set to 0. | 
~-----~--}---------- $o-2- 2722-929 - === == 5 $= -- === -- === ---------------------- 4 
|FDMIGTH |Alphaketic|Initially = FDLGTH value. If FDMLGTH > 1, decrease by 1. When | 
| | (Shift or |FDMLGTH < 1, set = FDLGTH value. | 
| |Truncate) | | 
SRS perenne Cee eRe re Ee ape arta ear ea Ey RN are ern GRY OA SeNUET REY aN ar ET OR ey A A Ot OS 4 
|FDFRINC |Alphaketic|If FDMLGTH > 1, increase by value in FDFRINCR field. When | 
| | (Shift or |FDMLGTH < 1, set = 0. | 
| |Txuncate) | | 
Rumi ieedSbeSe eee eo eS ececee tee ee Soe ee eee ee he ee ee ee 4 
JFDTOINC |Alphaketic|If FDMLGTH > 1, increase by value in FDTOINCR field. When | 
| | (Shift or |FDMLGTH < 1, SET = 0. | 
| |Truncate) | | 
a a a i a re ee 4 
|FDSLGTH |Alphabetic|Initially = FDSLGTHR. If FDSLGTH > 1, decrease by 1. When | 
| | (Ripple) | FDSLGTH < 1, set = FDSLGTHR value. | 
}~-------- $--~------- brn nnn nnn nnn nnn nnn nnn n nnn ncen nen seneemnees { 
|FDFRINC |Alphabetic|If FDSLGTH > 1, increase ry 1. ‘hen FDSLGTH < 1, set to 0. | 
| | (Ripple) | | 
|--------- banana nn nnn enn nnn nnn : 
JFDFRINC |Alphabetic|If FDSLGTH > 1, increase ky 1. When FDSIGTH < 1, restore to 0. | 
| | (Wave) | : | 
}--------- }----------}-------~----------------- —--—-------- === += : 
|FDMLGTH |Alphabketic|When FCSLGTH < 1, restore to FDLGTH value. | 
| | (Wave) | . | 
po~-=-—==- SS aS ES 75S TOF aga SNORE 
|FDFRINC |Alphaketic|Increase by 1 for roll to left. Decrease by 1 for roll to right. | 
| | (Roll) | | 
bie eee Pte ceosoues Bi eas SS Se ea ee J 


trol is returned to the base module and the 
job is terminated. If the data set is 
open, the value in the MS field is checked 
to determine the reason for requesting the 
module. 


Initially, the module is requested to 
print a heading message (MS field value = 
1). Thereafter, a heading message is 
printed when the module finds an indication 
of either a channel 12 printer carriage 
tape or the correct line count. All head- 
ing messages will begin at position one on 
the output device. After each heading mes- 
Sage printout, the line count value is 
reset to either the user-specified value or 
the default value, and the page number 
value is incremented. Before printing a 
heading message, a printer will skip to 
channel one to set up a new page. When any 
other message is to be printed, a rfrinter 
will space one line before printing the 
message. 


If the MS field value is not 1, the 
module determines if the carriage ccntrol 
tape indication is 12 and, if the indica- 
tion is not 12, if the line count value has 
reached its maximum value. If either 
situation has occurred, a heading message 
will be printed, the line count will be 
reset, and the page number will be 
incremented 
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Otherwise, the module tests the MS field 
tc determine if a control card image is to 
be printed from the input buffer. If this 
is the case, the image is printed at fosi- 
tion ten on the output device. If a card 
image is not printed, the module tests for 
a regular error message indication from the 
processing modules. These messages have 
message numbers from 2-28. For each mes- 
sage to be printed, the printer is placed 
at position one to receive the message. 


The message module places a flag message 
(consisting of the word ERRCR) in the mes- 
Sage data set when one of the other modules 
of the data generator program requests an 
error flag. This message begins on the 
line kelow the corresponding control card 
image and in the column corresponding to 
tne card column that is in error. 


After a message has been placed on the 
output device, the message module incre- 
ments the line count value, determines if a 
heading message has just been placed cn the 
device, and either continues processing or 
returns control to the base module. 


SERVICE AIDS 


A customer or systems engineer can 
obtain useful information for use in debug- 


ging a (non-executed) run of the data 
generator program by re-running the program 
with a DUMP control card inserted in the 
group of control cards. When the base 
module recognizes a DUMP control card, it 
takes the action described in the micro- 
fiche copy of the base module code. 


The publication IBM System/360 Operating 


System, Programmer's Guide to Debugging, 
Form C28-6670, describes both types of 


dumps that may be obtained when one uses a 
DUMP card. An indicative dump is a limited 
dump that results from an incorrect, or 
from a lack of a proper, SYSABEND DD state- 
ment. For a complete storage dump, a 
correct SYSABEND DD statement to define a 
dump data set must be included in the con- 
trol cards for the program. 


In using the contents of a dump, you 
will find that register 5 contains the 
address of the common communication area 
(common area). This area contains pointers 
to control blocks and to tables constructed 
by the data generator program; and it con- 
tains parameter values that the modules of 
the program (1) have obtained from control 
cards, (2) have assigned as default values, 
or (3) have arrived at through computation 
and/or conversion. Table 5 indicates the 
contents of the fields corresponding to the 
more frequently used labels in the common 
area. 


Certain debugging information is avail- 
able as the result of processing the con- 
trol card(s) preceding a DUMP control card. 


In the following text, the information 
given for a specific location of the DUMP 
card is in addition to any information 
resulting from processing any control cards 
that may have preceded the specified 
location. 


1. DUMP card preceding a DSD card: 
The common area contains values for 
printer action. 
The open list is initialized. 
The input DCB is open. 
Much of the common area contains 
zeros. 


2. DUMP card follows a DSD card: 
Addresses of DCBs have been 
determined. 

Work area for output record has been 
established and the area's address is 
located in common area. 


3. DUMP card follows an FD card: 
Storage area dump contains the FD 
table entry relating to that FD card. 
If other FD cards have been processed, 
the corresponding FD table entries are 
also included in the dump. 


4. DUMP card follows a CREATE card: 
Storage area dump contains tables 
created by the corresponding CREATE 
card. An updated copy of any related 
FD tables is also included. The most 
recent create table is contained in 
the dump and the CURCRTE field of the 
common communication area contains the 
address of this table. 
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The following sections contain information that summarizes or further explains materi- 
al appearing in the program listings for the data generator program. This information 
supplements the overall view of the program as supplied by Figure 55. 


Table 5 lists the entries in the Common Communication Area. This area is used by all 
modules of the data generator utility program. 


eTablie 5. Common Communication Area (Part 1 of 3) 


| Offset From| | 
| Start of | | 
| Common Area| | 
F 


~-----7----- banana nnn nn a nn nn nnn nn nnn nnn nnn nnn | 
| Deci-|Hex. | Label | Notes | 
| mal | | | | 
[------ $-~---}-~------ tenn nnn nnn nnn nn nn nnn nnn nn nnn : 
| Oo | O |CCMMON | | 
| O | O |FAGENO |Number of next page to be printed. | 
| 4 | 4 |LINECT |Number of lines to print on a page. | 
| 8 | 8 |LINECTR |Number of lines already printed on current page. | 
| 12 | CC |PARM jUsed during invocation. Also used by Create module to save SYNAD| 
| | jaddresses. | 
| 16 | 10 |REPEATNO|*Quantity" value from REPEAT card. | 
| 18 | 12 |CREATENO|"Create" value from REPEAT card. | 
} 20 | 14 |SYSP |Data Generator SYSPRINT DCB. | 
| 116 | 74 |SYSI |Data Generator SYSIN DCB. | 
| 216 | D8 |Work. Area | 
{ 216 | D8 |QFILL | | 
| 223 | DF |QSIGN | | 
} 224 | EQ |QFILL1 | | 
| 231 | E7 |csIcni | | 
| 232 | E8  |COUNTER {Used in scanning for continuations. | 
{| 236 | EC |CPENLIST|Used during DCB ofen processing. | 
{| 236 | EC |OPTBYTE1| | 
| 240 | FO |CPTBYTE2 | | 
{| 244 | F4& |EXLST | | 
| 244 | F& |INHDR | { 
} 245 | F5 |INHDR1 | | 
} 248 | F8 |OUTHDR | | 
{| 249 | F9 |OUTHDR1 | | 
{ 252 | FC |INTRL | | 
| 253. | FD |INTRL1 | | 
| 256 {100 |CUTTRL | | 
| 257 |101 |CuTTRLI | | 
|} 260 |104 |EXITDCB | | 
| 261 {105 |EXITDCB1| | 
| 264 |108 |TcraL | | 
|} 265 4109 |TOTAL1 $| | 
{| 268 |{10C |EXLST1 | | 
| 268 |10c |EDCB1 | | 
|} 269 |10D |EDCB2 | | 
{| 272 |110 |ExLST2 | | 
| 272 |110 |EDCBR3 | | 
| 273 |111 |EDCR4 | | 
} 276 |114 |EXLST3 | | 
| 276 |114 |EDCB5 | | 
| 277 |115 {|EDCB6 | | 
{; 280 {118 |DLRECL |Default value of record length for DCB opening. | 
| 282 |11A |DBLKSI |Default value of block size for DCB opening. | 
} 284  |11C |DRECFM |Default value of record format for DCB opening. | 
| 288 |120 |LEFTOVER| | 
| 292 |124 |OFFSET | | 
| 296 |128 |LPTR | 
| 300 |12C |DCBPTR' |Address of current DCB. | 
| 304 |130 |COMMON1 | | 
| 304 |130 {SAVEMS |Save area for message number if more than one message. | 
| 306 {4132 TCONCOPE Peondst on code to be returned to caller. | 
L L J 


eTable 


i 


offset From| 


t r 
| Label | 

| | 

+ t 
|CUTREC |Address 
|CRTABPT |Address 
{| CURCRTE |Address 
|CURCRGM |Address 
{CURPIC |Address 
| jtable. 
{FICCTR |Counter 
|EXITTAB |Address 
| ZXITGM |Address 
| CUREXIT |Address 
| DELIM 

|RECREM j|Counter 
| CURFD | Address 
|CURCUT |Current 
| SAVE14 

|GLENGTH | 
jADRLIST | 

| IND | 

| GCODE | 

| SPOOL | 

| CCODE | 
|GCADDR |Address 
| FIRSTGMO | Address 
|CURRGMO |Address 
{LASTGMO | Address 
| FIRSTGMI | Address 
|CURRGMI |Address 
| LASTGMI | Address 
{CCNCCDE | 

| MS | Current 
| INBUFA1 

J INFILL |(10 Pytes) 
| INBUFA 

|DDPTR | 

| CCMMON2 | 

| SWITCH 

| FDCSW 

| FDNAMESW | 

| FDPCSW 

| FDFMTSW 

| FDPLSwW 

| RANGESW 

| FILLSW 

| REPSW 

| INDEXSW 

| INDNMSW | 


| BQUCTESW|Binary picture indicator. 
| PQUCTESW|Packed decimal picture indicator. 
| EQUCTESW|ERCDIC (character-string) picture indicator. 


| FDSW 
| DSDSW 
| NOGCSW 


| DSDCSW 
| CRCSW 
| EXITSW 


| Start of 
| Common Area| 
|------ 1----- 
| Deci-| Hex. 
{ mal | 
|------}--~--~ 
| 308 |134 
j 312 |138 
| 316 |13c 
} 320 |140 
} 324 {144 
| 
{| 328 {148 
| 332 |14c 
| 336 {150 
| 340 |154 
| 344 |158 
| 348 |15c 
| 352 {160 
|} 356 |164 
| 360 {168 
|} 364 |16C 
j 364 |16C 
{| 368 |170 
} 372 |174 
| 372 |174 
|} 373 |175 
| 374 {176 
| 376 {178 
} 380 |17¢C 
{| 384 |180 
| 388 {184 
| 392 |188 
|} 396 |18Cc 
} 400 4190 
} 404 4194 
| 406 {196 
| 408 |198 
; 408 |198 
} 418 |1A2 
} 532 4214 
| 536 |218 
| 536 |218 
| 536 |218 
} 537 4219 
|} 538 |21A 
| 539 |21B 
| 540 j21¢c 
} 541 |21D 
} 542 |21E 
| 543 |21F 
| 544 |220 
| 545 4221 
| 546 |222 
| 547 {223 
| 548 |224 
[| 549 |225 
| 550 |226 
} 551 |227 
{| 552 |228 
| 553) {229 
‘ | 554 |22A 
Y& | 555 [222 
} 556 |22Cc 
L 


jCelimiter for SYSIN records. 


{Contents of register 14 saved here. 
|GETMLIST |Parameter list for GEIMAIN macro instruction. 


[Starting address of input work area (121 bytes). 
{Control card is read intc this (111-byte) section of 
{Start of 52-switch area. 

|FD-card continuation switch. 

{FD picture-continuaticn switch. 


|FD format switch. 
|FD picture switch. 


| 
| ?}FD card keyword indicator switches. 
| 


|°No-execution’ switch. 
| CREATESW|First CREATE-card switch. 

{CSD continuation card switch. 

|CREATE continuation card switch. 

{Indicator that an initial exit-name table exists. 
acanioacs ieytece to stop generation on input end-of-data. 


Common Communication Area (Part 2 of 3) 


of cutrut work area. 

of first create takle. 

of current create entry. 

of current create takle. 

where next porticn of picture is to be placed in ficture 


to keep track of length of picture remaining to be msoved. 
of first exit name table. 

of current exit name table. 

of current exit name in exit name table. 


for ‘Record’ quantity. 
of current FD tarle (in FD address table). 
location in output record being constructed. 


last storage optained by a GETMAIN macro instruction. 
first output [CB storage area. 

current output DCB storage area. 

last output [Cs storage area. 

first input DCB storage area. 

current input DCB storage area. 

last input DCF storage area. 


message number. 


INBUFA1. 


only one of these 
should ke on. 


(Indicates syntax checking only.) 
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eTable 5. Common Communication Area (Part 3 of 3) 
-----------+-7------- +++ - +--+ +--+ -- +--+ +--+ 5 + 
| Offset From| | 
| Start of | | 
| Common Area| | 


auto i Ra SG a cg aaa aaa a | 
| Deci-|Hex. | Label | Notes | 
| mal | | | | 

-----}----- $---<----4-7----- ~~ = = -- === = $$ 8 
| 557 |22D |DSDNULSW| | 
| 558 |22E |DSDORGSW| | Not used. | 
| 559 |22F |DSDDDSW | | 
| 560 |230 |CRTBLK |Indicator for a blank CREATE card. | 
| 561 |231 |NAMECSW |Name continuation switch. | 
| 562 |232 |PICCSW |CREATE card picture-continuation switch. | 
| 563 |233 |BUFPSW | | 
| 564 |234 |ENDSW | | 
| 565 |235 |CCMCSW |Comments continue switch. | 
| 566 |236 |FLAGSW | | 
| 567 |237 |PAGESW | | 
| 568 |238 |EPSW | | 
| 569 |239 {|SYSISW | | 
| 570 |23A |SYSPSW | | 
| 571 |23B |OLDNEWSW|Input/output data set indicator. | 
} 572 |23C |FLUSHSW | | 
| 573 [23D |FLUSHSW1 | | 
| 574 |23E |DSDOSW | | 
} 575 |23F {|DSDISW | 
| 576 |240 |{QUANSW |CREATE card ‘quantity’ switch. | 
| 577 |241 |PARENSW |Indicates detection of a left parenthesis. | 
| 578 |242 |REPEATSW|Used to test if a REPEAT card remains to be processed. | 
| 579 |243 |SYSINEOD|Address of end of SYSIN data. | 
| 588 |24C |FDPLGTH |FD-picture length. | 
| 592 |250 |SGCADDR |Save Area for address of storage obtained by GETMAIN macro | 
| | | instruction. | 
|} 596 |254 |FDPTR |Address of current FD-takle entry. | 
} 600 |258 |FDPTR1 |Address of first FD table. | 
} 604 |25C |FDPTR2 |Address of current FD table. | 
| 608 |260 |COMMON3 | | 
| 008 |260 {|FDCTR jCount of number of entries in current FD table. | 
| 612 |264 |LREMAIN |Length of FD picture remaining at end of scanning an FD card. | 
| 616 |268 |COMPCTR | { 
| 620 |26C |LMOVED | | 
| 624 4270 |U |Current random number value. | 
| 628 {274  |PICEND' |Location of end of picture in output record. | 
| 632  |278 |CURFDGM |Address of current FD-address table. | 
| 636 |27C |SWTCH | | 
| 636 |27C |SYSINSEL|Field-select indicator switch. | 
| 637  |27D |FIRSTSW | | 
| 638 |27% |FRSTSW | | 
} 639 |27F |STOFSW | | 
| 640 |280 |COPYVAL |Value of COPY parameter from a CREATE card. | 
| 644 |{284 |CCPYFD |Pointer to FD address used in copying a ‘name* group. | 
{| 648 |288 |COPYFDGM|Address of FD-address tackle. | 
| 652 |28C |NAMCTR' |iNumber of FD addresses to be copied for a "name" group. | 
{| 654 |28 |NAMCTR1 |Counter used in copying a ‘name" group. | 
} ©56 |290 |INRECSZ |Logical record length of an input record. | 
| 658 |292 |CUTRECSZ|Logical record length of an output record. | 
| 660 |294 |INRECFM |Input record format. | 
| 661 |295 |RECOFFST|Offset to start of data in output record. | 
| 662 |296 |OUTRECFM|Ouput record format. | 
| 664 |298 |PICRASE |Address of start of picture table. | 
{| 668 |29C |MESSAGE | | 
bepasoalo coe hone one ecb oe eee eae ea eee eee a Soa eee eee ee ed 
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Table 6 lists the fields of the Data Con- 
Pe trol Block (DCB). The labels, as given in 

&Y this dummy section, may vary in name from 
the levels for the DCE fields as given in 
the System Control Blocks publication. 
However, the offsets from zero correspond 
in meaning with those given in the System 
Control Blocks publication. 


eTable 6. Data Control Block 


ea ee LE Peel Nim ge ON I ee Oe 1 
| CFFSET FROM START OF DCB | 
a chara ag aaa rae meat oe 
|} DECIMAL | HEX | LABEL | 
erage Store | cient a aes a 
| 0 | 0 | DCBD | 
| 0 | 0 | FILL | 
| 17 | 11 | DEVI | 
| 18 | 12 | FILL1 | 
| 26 | 1A | DSORG1__—i| 
| 26 | 1A j DSORG | 
| 28 | 1c | FILLER | 
| 28 | 1c | IOBAD | 
| 32 | 20 | BFIEK | 
| 33 | 21 i EODAD | 
j 36 | 24 | RECEM | 
| 37 | 25 | EXLIST | 
| 40 | 28 | DDNAME | 
| 40 | 28 j DEBAD | 
| 40 | 28 | IFLGS | 
| 48 i 30 | GETAD | 
| 48 | 30 | OFLGS | 
Y | 49 | 31 | OFLGS1 | 
| 50 | 32 | MACRFE | 
| 52 | 34 | FILL2 | 
i 56 | 38 i SYNAD | 
| 60 | 3c | CINCD | 
| 62 | 3E i BLKSI | 
| 64 | 40 | FILL3 | 
| 82 | 52 | LRECL | 
| 84 | 54 | FILL4 j 
| 256 | 100 | NEXTDCB | 
| 260 | 104 | DDNAMF1 | 
| 268 i 10C | FOCSW | 
| 269 | 10D | DCBSW1_si| 
| 270 | 10E | DCRSW2 | 
{ 271 | 10F | DCBSW3 | 
| 272 | 110 | INREC | 
| 276 | 114 | GMLGTH | 
| 278 | 116 | FIELDSEL | 
j 279 | 117 | SPARE | 
ee ee eee Loco oo ele he os es a es Sw Jj 
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Table 7 lists the defined constants (DCs) tnat are used by the various modules of the 
data generator program. 


Table 7. Defined Constants for Modules of the Data Generator Program 


eT 7] 1. =! ~ | | 
C'LINECT=' C' LENGTH" C'NAME="' C' (see 'C30 for base) 
C'STARTLOC=" C*PICTURE=" 
C'PICTURE=" C'FILL=" C'RA' 
C'FORMAT=" C'INPUT=" C'ZD' 
C'ACTION="' C'EXIT=" CPD 


C'FILL=" 
C'CYCLE="' 
C'RANGE=' 
C'CHARACTER= 
C'SIGN=" 
C'REPEAT' C'INDEX=' 
C'DUMP" C'REPLACE=" 
C'OUTPUT=( 
C'INPUT=(' 


C'END' 


C'SYSIN 


C'QUANTITY=' 
C'CREATE=' 


c'pt? 


C! 1EB7291 PERMANENT 
/O ERROR! 

H'256! 

F'123456' 

F'65535! 
F'524291! 
H'=4! 
H'256! 
X"FOFOFOFY 


X'02147483647F" 


x'0003' 
X*000002 147483647 F' 


X' FOFOFOFOFOFOFOFO' X'FOFOFOFOFOFOFOFO' 


A(CDATEND~'DATD 
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Table 8 lists the equated symbols (EQUs) that are used by the various modules of the data 
generator program. 


Table 8. Equated Symbols for Modules of the Data Generator Program 


Module 


*ELOI 
F8B4 
] ] 1 1 
"ELOI 
‘BLOW 
A7AI2 
CARDSCAN 

F4G11 
*ELO2 

"ELO2 A7A18 


AéA11 
KEYSCAN 


PDD NAMER 
PDDNAMER 


LABEL] 
SCANI 
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Tables and Work Areas Used Modules of Data Generator Program 


Table 9 is a grid indicating the modules that establish, use, and modify the major work 
areas and information tables of the data generator program. Mnemonic names for the 
tables or area are placed in parentheses and correspond with the names given in the 
module cross-references on microfiche listings. 


Table 9. Data Generator Modules Information Tables and Areas 


Module Action Code: B = Module gets storage for, and/or enters data into. 
U = Module uses or modifies the area. 


Common Comm. Area 
: U 
Create Table 
(CRTAB) 
Exit Name Table U 
(EXITTAB) 
FD Table U 
(FDTBL) 
FD Address Table U 
(FDADTAB) 
Input Buffer 
(INBUF) 


Message Table 
(MESSAGE) 


Table/Area 


Create Picture Table 
(CRPICT) 


* Closes and releases storage for: 
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re 


Table 10 contains a summary of the input and output information to be found on microfiche 
listings of the data generator program. 


eTable 10. Module Inputs and Outputs 


re ee ee oe pee ae Se ee epee ee ee a ee en ee ey 

| INPUTS OUTPUTS | 

Ja ne aa nnn rrr nnn 
BASE MODULE 

|Data Generator Control Cards. {| Reg. 5, pointina to a common communication 

{DD cards for all data sets used. area. 

jEither: Parameter List Address for Message indicator in the common area. 


| 
invocation | Reg. 9, pointing to a data generator 
or Job Control Language EXEC | control card operation field in an input 
card parameters. | Buffer--this is for output to an analysis 
| module. 


CLEAN-UP _ MOCULE 


Reg. 5 and other pointers (in the commun- 
ication area) indicating, respectively, 
the addresses of the communication area 
and control tables. 


DCB storage areas and associated buffer 
areas, and the input record work area, 
are released to the system. 


MESSAGE MODULE 


|Reg. 5, pointing to the communication 

| area. 

|Message number indicator. 

jActual or default values for linecount 

| and page number. 

|Output DCB name. 

{Indicators for: Output DCP open or not. 
Channel 9 carriage con- 
trol. 

Channel 12 carriage con- 
trol. 


Heading and paging information. 
Program messages. 

Error return codes. 

Control card images. 


in an input buffer. FD table entry with some parameter values. 
Temporary storage with a picture or format 


I 
os | 
Reg. 9, pointing to a control card image | One or more FD tables...520 bytes each. 
| 
| 
| pattern. 


FD TABLE MODULE 
|FD table entry. | Completed FD table entry...64 bytes. 
|Reg. 5, pointing to communication area. | 
|SGCADDR pointer to picture temporary | 
| storage. | 

| 


|Switch indicating picture type, if any. 


CREATE ANALYSIS MODULE 
| 
Reg. 5, pointing to communication area. 
Reg. 9, pointing to control card image 
in input buffer. 


| One or more create tables..512 bytes each. 
| Create table entry...28 bytes. 

| Picture table...(L + 6)* bytes. 

| FD address table(s)...88 bytes each. 

| Exit name table(s)...72 bytes each. 

| 
| 


*Note: See Figure 61 for definition of L. 


CREATE MOCULE 
jReg. 5, pointing to communication area. j Records written on an output device as 
jCreate tables(s). | specified by DD name on a DSD control 
|Picture table(s). | card. 
|FD address table(s). | 

H 


Veatals name takle(s). 


So aa Se ees at esen meen anas eaas ia es ea eee ean ee ee B | 
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eChart 60. IEBDG Base Module (Part 1 of 3) 


(a4) contro cano scaN 


For a given control card type, check for the initial card, 
a continuation card, and a comments card. 


Entry 
Point Switch 


eA The first control card of a set of control cards for this utility 


progrom must be a DSD card. In the following table, the 

indicated switches are tested, or the indicated tests are j 
preformed. The action taken depends on whether a switch 1 
is "on" (= 1) or “off (= 0), or whether a test result is "yes" 


or "no". 


1EBDGMSG 


Print 
Indicated 
Message 


75C2 


Register and 


Common Area 
Initialization. 
Assign Defau!ts 


Switch or Switch or 
Test No. Test Name 


Comments Continue] Test SW 2 or go to 
Chart 60, Box HI. 


Sw 


Cl 
Execution FD Continue SW 
or 


Invocation 


Execution 


Create Continue 
SW 

DI 
PLINECTR 


Invocation 
DSD Continue 


SW 


Create Picture 
Continue SW 


"On" or "Ves" 


Action (*) 


Go to Chart 64, 
Box Al 


Go to Chart 68, 
Box A2 


Go to Chart 62, 
Box C3 


Go to Chart 68, 
Box A2 


"Off" or "No" 


Action 


Test SW 2 


Test SW 3 


Test Sw 4 


Test SW 5 


Options: 
Process Line Count, . 
Parameter List DD Names, e : ov < = one: 64, Test SW 6 
Options Page Number ‘ontinue x 


Test for OSD 
Control Card 


he SVC 19 DSD Contro! Go to Chart 62, Test for FD 
Card Box B3 Control Card 
Open SYSIN 
(input) and Check DCB From: FD Control Go to Chart 64, Test for CREATE 
ISYSPRINT (message) Parameter 72/F2 Card Box Al Control Card 
Data Sets Validity 71/G3 
68/C1 CREATE Control | Go to Chart 68, | Test for REPEAT 
69/H2 Card Box Al Control Card 
F2 65/G3 
68/ J2 REPEAT Control Go to Chart 62, Test for END 
Set Condition 70/K3 Card Box BI Control Card 
Code 12 
END Control Go to Chart 61, Test for DUMP 
Card Box BI Control Card 
DUMP Control Terminate the Return to 
SVC 6 From: Card Job Supervisor 
IEBDGMSG 75C2 JEBDGMSG = 75C2 62/62 
ies 
j 62/C5 ¢ a 
Place Heading A To Point Indicated 
on SYSPRINT eal enoes on in Above Table. 
B) a 
62/F4 (*) Chart Designations: 
62/G4 


Get Next 
Card from 
SYSIN 

Data Set 


Test 
Condition 
Code 


Jl SVC 6 212 
IEBDGMSG = 75C2 


Print Control 


Load Condition 


Card on Code for User 


SYSPRINT 


(a4) K2 


To Control Card Scan 


in Register 15 


Return to 
Caller 


(By way of the Supervisor) 
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68-72 Create Analysis Module 
60-62 Base Module 
64,65 FD Analysis Module 


75 Message Module 


Ww 


eChart 61. IEBDG Base Module (Part 2 of 3) 


End Routine SYNAD Routine 
Entered on: Entered on: 
(Vy Reading END Cord. Permanent Errors 
(2) End of SYSIN Data (/*), Encountered During 
Processing of SYSIN, 


From: 
60/test 5 


ERRORS ___82 


Initiali- 
zation of 


Registers 


Analyze 
1/O Errors 
Put Information 


in Buffer 


VG 6 


Print Buffer 
Information 


E! 
IEBDGMSG 75C2 


Print 
Message * 14 Save Areas 


SVC 6 USER F2 
1escLup 6582. |! 


Close DC Bs 
and 
Free Storage 


Turn Off 
All 
Switches 


AY 


"ELOI KI 


Return to 
Caller 


Program Finished 


Invalid 


DCBEXIT Routine 


Entered at Every DCB Open Tine 
to Test for Invalid Conditions. 


Entered For 


SYSIN DCB 
SYSPRINT DCB 
SYSUT (User) D 


Entry from 
Open Routine 


Place Default 


BLKSIZE) Default 


Value in LRECL Values 
Common Aree. RECFM 
(See NOTE.) 


DCBEXIT 


Test for Validity of: 


Blocksize, 

Legicel Reverd Length. 
Fixed Record Format. 
Retio of Blocksize 

to Lagical Reword Length. 
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eChart 62. 


184 


CONVERTB 


IEBDG Base Module (Part 3 


REPEAT Card Scan 


from: 


ey) 60/Test 4 


Bl 


Card 
Operation 
Format 


OK 


No 


Valid 
Parameter 
Present 


No 


Resolve 
Repeat Card 
Parameter 


Convert 
Packed Decimal 
Parameter Value 
to Binary 


Number 
Too Large 


No 


Gl 


Another 
Keyword to 
Scan 


Yes NOTE: 
280 Bytes Requested 


Check for 
Comments 
Continuation 


——— 


of 3) 


DSD Card Scan 


from: 
yar 


A3B3 


Test Error 
(NOGO) and 
Continuation 
Switches 


A3C3 SVC 6 


IEBDGMSG = 75C2 


C4 


Advance Scan 


Pointer and Print Message 
Test for #5, #19, or #20 
Keywords A ‘ 


Accordingly 


A3C44 


Scan Out 
DDNAME, (Input 
or Output as 

Appropriate) 


Get Storage 

(Conditionally) 
for User 

DCB 


Successful 


Copy DCB. 
Initialize the 


Open List 


NOTE 1 (See Block F5): 

For Input Data Set, Work 
Area is at INREC. For Ouput 
Data Set, Work Area is at 
OUTREC. 


Zero the 
DSORG Field 
in the DCB 


A3C77 


Open the 
User DCB for 
Input or Output 
as Needed 


Open 
Successful 


IEBDGMSG = 75C2|C5 


Print 
Message #24 


Get Storage 
for Input 
Record 


Place Storage 
Address in: 
Work Area. 

(See NOTE 1) 


Scan Out 
Rest of DSD 
Card 


Need 
to Set Comment: 
Switch 


Set 
Comments 
Switch 


eChart 63. IEBDG Clean-Up Module, IEBDGCUP 


| 


NOTE: Base Module, 
IEBDG, Frees 


Storage for 
Close an a Close SYSIN SYSIN and 
Open Output and SYSPRINT SYSPRINT Data 
Data Sets, Free Sets. 


DCB if One 


Buffers After 
" losing 


SVC 10 and 


Storage Area 
for DCB 


To End Routine, 
Chart 61 
Box F1 


DCB if One 
Exists 


SVC 10 and 
svc 5 


Free DCB 
Buffers and 

Storage Area 
for DCB 


Check for a 
FDREPNM in 
H3 FD Table 


Place Hex ‘FF 
in FDNAME 
Field of FD 

Table 
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Chart 6&. IEBDG FD-Analysis Module, IEBFDANL (Part 1 of 2) 


From 1EBDG 
(Chert & Test 2) 


Al 


Lal 


Check Picture 
and Continue 
Switches, 
Branch as 
Required 


Get Storage 
for (another) 
512-Dyte FD 
Table, If 
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(ws) 


s pte SCANOUT 83 

Switches Set Scan Keyword 

FDPLSW: If Picture Spinel hie Not 
FDOFMTSW: if Format Value. Set dg Successful 


Appropriate ° (Msg. 10) 


Switch 


C2 a) 
VALCHECK 6583 


Picture Types: 
Check Binary 
Paremeter Packed 
Validi Character 
D2 
CONVB 65B5 
Length, Picture 
Range, Cycle 
Startioc, Index 
Block E5 
Place Value ae if 


_ 5) in FD Table. Picture Contin- 
Increment uation Card 


Parameter is Encountered 
Pointer 


F2E2 F3 
13) Yes 


Set for 
Message 21 


Yes 


H4 
Storage 
From: Obtained for 
65/C5 Picture 


Entry Point 
Switch. Clear 
FD Switches 


F4A1 SVC 4 


Get 
Storage for 


Picture 


F485 C5 


Check Picture 
Type. Turn 


on Appropriate 
Switch 


F4G4 D5 
Scan Characters 
in Picture 
(Columns 4-71). 
Move Characters 


F4y FS 


Move Rest 
of Picture to 


Storage 


"ELOT J5 
Return to 
1EBDG 

Chart 60 Box A’ 


v 


eChart 65. 


From 64/G3 


Validity Routine 
B3 


Entry to 
Validity Check 
Routine 


VALCHECK 


Move Number 
Zones to 
Work Area 


Set for 
Message 15 


Return to 
Point of 


sporty 


Set Up FD 


Set for 


Table for Message 
Field Select tid 
Option 


TEBFOTBL 66A1 


Complete FD 
Table Entry 
Assignments 


Return to 
Base Module 


IEEDG FD-Analysis Module, IEBFDANL (Part 2 of 2) 


Conversion Routine 


MAX, VALUE: Check Field 


2,147,483,647 |» Length: Put Error 
Value in adid | 
Packed 


Decimal! 


'9E7 
MAX, VALUE: Check for 
32,737 Maximum Error 
Value. Convert [7 — 


to Binary 


Return to 


Point of 
Departure 
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eChart 66. IEBDG FD-Table Module, IEBFDTBL (Part 1 of 2) 


Entered from 
FD Analysis Module 
(Chart 65 Box G1) 
F6AI 
IEBFDTBL Al 


Test for 7 
Specified (Msg. 3) 


Action 
Roll, Wave or 
Neither 


Get Storage 
for Triple 


(s) Field Length 


F7A1 C4 


F5G3 F6A2 


Put Fill Character 
In Storage. Yes 
Max of 256 
Bytes Per 


ae Set FD Switch. 
Check Picture Yes Set ‘from Inc. 
Number Restore’ and/or 'to 
Inc. Rest." Value(s) 
to 1 


. 3) 
D3 
P D1 


Por B F7A5 ae 
or 
Type bgt Picture Picture 


Switch for Format 
Action 


Storage 
Obtained 


Validity 


or Format 


EBCDIC 
Cr2) Picture a3) 


Convert 
Picture Value 
to Binary 


Move Picture 


Pack the Move Picture 


Decimal Number Neltliss ees ries : into Storage 
in Storage (Boe 85) Area (Box B5) 


FOF4 


Not Successful Default 
to Fixed Action 


Storage for 
Picture (Msg. 
10) 


ae 


F7C3 H4 


Rippin’ Move Picture 
Default Neither Action, EBCDIC . Picture Three Times 

to Fixed Action Picture, or into Storage 

Neither. Area (Box B5) 


Set ‘from 


Return to 
Inc Restore’ TEBFDANL 
Value to 1. Chart 65 Box G 
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eChart 67. IEBDG FD-Table Module, IEBFDTBL (Part 2 of 2) 


U | 


F9A] A4 F9A3 A5 


From Chart 66 Resolve Use Specified 
Box D4 Starting Char- Character to 


acter for Al, Initialize the 
3) AN or CO Field 


Format Field 


tart- 
ing Character 
Specified 


F8H2 NOTE 1 
Resolve Field 


Get Storage Use First Set Up for 
or Wave for Length Values and/or Character of Moving 
Action Value Required Signs as Reqd . Format Characters 


(Do Nothing 


Sequence to Field 


F8G2 dD. MOVEROUT D4 
Fill Field 
with 


Get Storage 
for Twice the 
Required Field 
Length Value 

For Pattern 


Set Action 

Switch. Clear 
FD 

Switches 


Characters 
from 
Sequence 


(=) F7H3 E4 VALC HECK E5 
"ELOY £3 


Return to Clear 
From: 66/D4 lEBFDANL Work Area 
art 65 Box 6 Switches to Zeros 


Get Length to Move Number 


Move, Obtain Zones from 
Addresses Storage to 
Set Sign Work Area 


Set Format => 


Indicator and 
Action 
Switches 


Get Length to 

Move. Obtain 
Addresses . 

Set Sign 


H3 


Move Numbers to 
Storage for 
FO Picture 
Field. Set 

Field Address. 


F8A4 


Resolve 
Final Field 


Length 


Appropriate 
Message 


NOTE 1: 


F1B4 


Pah Resolution of Final Field Return to 
Field Length Length Set to Field Length Specified (FL) LEBEO ANE 
Value AN IFFL Sequence Length (SL) in Storage, or se 


to FL Plus SLIF FL SL, 


RA None. 

BI Negative or Positive Binary 1. 

PD Negative or Positive Packed Decimal 1. 
ZD Zoned Decimal 1. 
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eChart 68. IEBDG Create Analysis Module, IEBCRANL (Part 1 of 5) 


From !EBDG 
Chart 60/Test 3 LEBCRANL A2 
Al . 
Initialization 
A6AI5 BI A6AI A6A31 4 Yes 
¢ Valid CREATE Type CREATE B5 
7 Card Format of Card Continue Subpurumeter Yes 
Continued 
Comments No 
Continue 
C2 'S9 y C4 
Return to Further 
Base Module Continuation No Sieaiamee No 
Chort 60 Box G2 Indicated nanllagly 


To Print Message 


Yes @ 


Return to 
Base Module 


Continuation 


Indicated 
a 


For Next Card 


STARTLOC Zs.) 


Determine Set Default 


If this is Values for 
First CREATE QUANTITY and 

Card in FILL if ee 
DSD Group Necessary : 


Charts 69, 70,71 


ACAI CARDSCAN F3 
Get Storage s F2 Cards Test for Last 
of 512 Bytes This a Re- a Keyword. |e 
for Create peat Group with ” Test for ome 
Table if ore Cards Continuation 
Necessai Comments 
(1) pasha (02) See NOTE 1 
ee 
KEYSCA Comments XXXX 
Scan CREATE (s1) 
Card for 
Next Keyword, ; 
See NOTE 1. 
NOTE 1. 


Microfiche Listing Label XXXX —nd 
the Off-Page Connector ZZ/YY 
Have the Appropriate Value Tuken 
from the Table Below. 


Keyword Being Velue of | “/alue of 
Processed XXXX ZZNY 


ERRORF 


7 QUANTITY 71/B1 
etum to NAME 69/Al 
Base Module PICTURE 70/8) 
hart 60 Box G FILL 71/83 
To Print Message DDNAME 69/84 
EXIT 71/85 
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eChart 69. 


NAME Processing 


A2 
SPSCAN 72B) 


Scan Name 


Parameter 


B2 
FDSRCH 72B5 
Search FD 
Tables for 
Equal Name 
shecan 728) To Card Sean 
Sean 
Next 
Name 
DI 
FDSRCH 72B5 
SearchFD 
Tables for 
Equal Names 
"ELOI E2 
Return to 
Base Module 


Chart 60 Box H1 
For Next Card 


To Cord Sean (2 


G2 


A6CE Gl 
Copy No Set for 
Parameter After Message 
Second ( (Msg. 3) 
Yes 
H (12) 
Sean, Convert, ERROR H2 
and Store Retum to 
Copy Value. Base Module 
(Use SPSCAN Chart 60 Box G 
and CONVDB 


To Print Message 


tion Card In- 
dicated 


Names in 
Copy List 


Repeat FD 
Name List as 
Required by 
Copy Value 


To Card Sean 


IEBDG Create Analysis Module, IEBCRANL (Part 2 of 5) 


DDNAME Processing 


Seam All 
Input DCBs 
for Equal. 


F5 
Store Input 
(or SYSIN) 
DCB Address 
in Create 


SYSIN 
Delimiter 
Found 


Assign 
Default 
Delimiter 
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Chart 70. 


192 


Picture 


Length 


CONVDB = 7283 


Convert 
Length to 


Binary 


Get Storage 
for Picture 

Table. Put 
Length Value 
in Table 


Store Table 
Addr. in 
Create Table. 

Check 


Delimiters 


Invalid 
Delimiters 


(Msg. 3) 


Picture 
Continuation 


SPSCAN 7281 


Scan Start 
Location 
Value 


CONVDB 7283 


Convert Start 
Location Value 
to Binary 


IEBDG Create Analysis Module, IEBCRANL (Part 3 of 5) 


Clear Picture 
String Area in 
Picture Table 


Store Start 
Location Value 
in Create 
Table Entry 


Convert 
String Values 
to Binary or 


Invalid 


Delimiter 
Packed Decimal 


as Necessar 


Store 


Picture String Value 
Continuation in Picture 
Table 
from: 
68/D4 


Determine Type 
of String. 
Process 
Accordingly 


Decimal 


Error 
in Card 
Parameter, 


Set for 


Appropriate 
Message 


(3, 8, or 21) 


Return to 
Base Module 
Chart 60 Box H1 


for Next Card to Print Message 


B5 


String 
Continuation 
Indicated 


Move Picture 
String from 
Card to 
Picture Table 


Continuation 
Switch 


Invalid 
Delimiters 


to Card Scan 


A6D71 


Move all of 
Picture String 
from Card 
to Picture 


Table 


eChart 71. 


QUANTITY Processing 


From _68/G5 


AéBI Bl 
SPSCAN 7281 


Scan 


QUANTITY 
Parameter 


CONVDB 7283 


Convert 
QUANTITY Valve 
to Binary 


01 


Store 
Converted 


Value in 
Create Entry of 
eG able 


IEBDG Create Analysis Module, IEBCRANL (Part 4 of 5) 


FILL Processing 


A6E35 


Character 
in Create 
Entry 


Characters 
in Create 
Entry 


45) Set 


Appropriate 
To Card Scan Message 


ERRORF G3 
Return to 
Base Module 
hart 60 Box G 


To Print Message 


EXIT Processing 


From_68/G5 


7281 


Scan User's 
Exit Routine 


Get Storage 
for Exit 

Table if 
Necessary 


(72 Bytes) 


Adjust Exit 
Name Table 
Pointers 


Place User's 
Exit Name in 
Exit Table 


Exit Routine 
and Store 
Addr. in 


To Card Sean 
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Chart 72. IEBDG Create Analysis Module, IEBCRANL (Part 5 of 5) 


PARAMETER SCAN CONVERT FD TABLE SEARCH | 
SUBROUTINE SUBROUTINE SUBROUTINE 


YY cy 


SPSCAN Bl 
NOTE: 16 Bytes Permits 
Check for p a Decimal Value of 


Parameter 2,147,483,647. 
Column Value 


A6CY 


of Character 
to be Converted 


D5 
Valid Choracters No 
Delimiters (2) 
(Msg. 7) 
Yes es 
E2 A6N12 6B 
A6M13 
Set Put Packed Get Storage 
porters Appropriate Decimal Value for FD Address 


Length OK Table if 


Not Successful Required q 
(Msg. 10) 4 


(Msg. 3) Message in Storage 


Yes 


ADC98 F5 


Packed Decimal 
Picture 


Fl ERROR F2 
Return to 
R t 
a Base Module 
Chart 61 Box G 


to Print Message 


G5 


Return to 
Caller 


Convert Packed 
Decimal to 
Binary Value 
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F 
q 
E 
4 
: 
4 


eChart 73. IEBDG Create Module, IEBCREAT (Part 1 of 2) 
Pay From: 68/G2 
IEBCREAT Al 
Entry 
From: 
ie A7A18 83 
A7AI BI Initialize for 
P Next FD Addr, 
Test Reseeines for This Entry, 
NOGOSW 2 if There are 
Switch Vu) More 
©-|- 
A7A\\ 
Initialize for 
First Entry 9 Field Too 
Through (Msg . 16) Large 
Module 
No 
‘SEF 


Determine 
Output and 
Input Record 

Characteristics 


Move FD 
Pattern to 


Output Record 


Initialize 
Record Counter 
with QUANTITY 
Value, or Set 
Stop Switch 


Test 
IDCBPTR 


Move Picture 
to Output 
Record 


Set Up 
Work Area, 


(See NOTE 1) 


Select Option 


A7AI5 
Test 


EODSTOP 


A7A2 


From Either a SYSIN 
or a Non-SYSIN Data Set. 


Yes 


sone ecoe 


If Input = SYSIN Work Area = INBUF 
If Input = SYSIN Work Area = INREC 


From: 74/G1 


Stop- 
Generation 
Switch on 


Process Next 
Create 


REC REM 


Entry in Table 


Tables to 
be Processed 


A7A 


Call User 

Routine to 
Process Output 
Record 


Analyze 
User Return 

Code. Branch 
Accordingly. 


Code __| Chart /Box 
Put Out Record 
Skip Record 
DSD End 


Job Step End 
Set Msg .9 


Data Set Utility Programs: IEBDG 


195 


Chart 74. IEBDG Create Module, IEBCREAT (Part 2 of 2) 
From 73/C5 
Process 73/F2 
Next From 73/E4 73/H5 
Unprocessed FD 
Name 


Determine 
Index and Cycle 
Values 


A7RI 


Determine 
Format. If 
Decimal, 
Convert to 
Binary 


A7R3 


Adjust for 
Index and 
Range 
Values 


See NOTE 2 te 
A7R4 


Reconvert 
to Decimal form 
as Required 


Process Label 


eeecee Ce eee 


Shift or | A748 


Truncate 

Ripple ABCD1 
Wave ABCD5 
Roll ABCD2 
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Generate Random 


Process any 
Non-Numeric 
Format Except 


‘902 


Repeat 
Function to 
Fulfill 


Random 
Format 


No 


Numbers 


FD Address 
Table (S) 


Delete User 
Exit Routine 
from Storage 


Random 


NOTE 2: 
Processing in Block ‘OCF 
Fl is Expanded 
Below. 


Create Table 
Storage 
Areas 


Put Binary Convert to 
Value in Packed Decimal 
Storage in Register 


Area Q 


Packed 
Decimal 


Unpack to 


F R Zoned Decimal. 
ormat, Re=. Place in FD 
quired Field Address 


Move Value 
from Q Area 
to FD Field 

Area 


Reinitialize 
for Create 
Analysis 


Module 


To Read Next Card 


eChart 75. IEBDG Message Module, IEBDGMSG 


NOTE 1: If Not 
Channel 12 and 
Linecount not 
Max, Skip Next 
Block (F2). 


Entered from IEBDG 
to put Out Headings, 
Control Card Images, 
Error Messages, and 
Error Flags. 


IEBDGMSG B2 


Channel 12 
and Linecount 
Maximum 

(NOTE 1) 


Reset Lire 
Counter. Get 
Heading Addr, 


Check for 
Control Card 
Image, 
Error Message, 
or Error Flag 


MSG04 or MSGO5 


Write Out 
Message, Using 
SYSPRINT 

and DCB 
Addr 


J2 


Test 
DCBOFLGS 
(4th Bit) 


ls There a 
Control Card 
Image to be 
Printed. 


(Msg , 30) 


Uses Move 
Mode of 

PUT Macro 
Instruction 


Increment 


Page Number 
Counter 


Increment 
Counters, Test 
Flag Switches 


Return to 
1EBDG 


NOTE 2: Esror Flag Must be 
Turned Off. 
Go Test for a 
Channel 12 Indication. 


NOTE 3: Heading Messoge has 
been put on SYSPRINT. 
Go to Test for Control 
Card Image. 


NOTE 4: No Error Flag has 
been Set and Either 
1. Heading Switch is 
off, or 


2. Heading Switch is 
off and Heading 
Message is Indicated. 
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Independent Utility Programs 


Independent utility programs are executed 
outside and in support of IBM System/360 
Cperating System. They are: 


e IBCDASDI, which initializes a direct 
access volume and obtains alternate 
tracks on initialized disk storage. 


e IBCDMPRS (dump-restore), which dumps 
and restores the data contents of a 
direct access volume. 


e IBCRCVRP (recover-replace), which reco- 
vers data from a track on direct access 
storage, replaces defective records 
with data supplied by the user, and 
writes the composite data on an opera- 
tive track of the original volume. 


Independent utilities are discussed in 
four parts: 


e Supervisory Routines of the Independent 
Utilities 


e IBCDASDI 
e IBCDMPRS 


e IBCRCVRP 


Supervisory Routines of the 
Independent Utilities 


The independent utility programs contain 
copies of supervisory routines to check the 
input device, read control statements, ana- 
lyze control statements, check volume 
labels, print diagnostic messages, type 
diagnostic messages to the operator, con- 
trol I/O, and analyze I/O interruptions. 


CHECKING THE INPUT DEVICE 


The entry point to this routine is CKINPUT. 
The routine is entered immediately after 
IBCDASDI, IBCDMPRS, or IECRCVRP is loaded. 
The program assumes a WAIT state (by means 
of LPSW) until the input device is defined 
by the operator. The operator then enters 
a code ky means of typewriter or console. 
This routine then checks the code to verify 
that the input device is 1442, 1402, 2400, 
or 2540 (or 1052 for IBCRCVRP) and that the 
channel number is not greater than six. If 
these conditions are satisfied, the appro- 
priate UCB is selected and control is given 
to the control statement analysis routine 
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at location CLRSCAN. If an error is 
detected in the coded information, an error 
message is printed or displayed and the 
WAIT state is entered with E's displayed on 
the console lights. 


DATA INPUT ROUTINE 


Ine entry point to this routine is SYSIN. 
Linkage to the routine is by a BAL LINK15, 
SYSIN. Register GR2 contains the address 
of the calling routine's buffer. This sub- 
routine stores the buffer address in the 
channel command word SYICCW, sets a read 
command and links to subroutine STAR- 
TIO via a BAL LINKS, STARTIC. Reading is 
then performed by the defined input device. 
When control is returned to this routine, 
it in turn returns control to the calling 
routine via a BR LINK15. 


CONTROL STATEMENT ANALYSIS 


The entry point to this routine is CLRSCAN. 
Housekeeping functions are first performed 
on program switches and buffer areas 
required by the routine. This routine then 
links to the control statement scan routine 
at RDCARD. RDCARD returns a pointer toa 
field and the length of the field in regis- 
ters SCANADR and LENGTH, respectively, and 
an indication of the field type in location 
SKITCHRD. SWITCHRD is a one-byte switch 
with the following settings: 


Bit Value Meaning 


control statement error 
bypass 

first control statement has 
been read 

operator found 

keyword found 

parameter found 


0 
1 
3 


Amn £& 
PRE Pe 


Validity checks are then performed on 
the scanned data. If an error is detected 
in the input data, an attempt is made to 
print a message on the defined message out- 
put device. If the message output device 
is not defined, an attempt is made to issue 
the message using the Write to Operator 
routine. If neither device is defined, the 
WAIT state is entered. If the message is 
successfully issued, the WAIT state is 
entered, and the program must be reiniti- 
ated and the corrected statement submitted. 


Following completion of control state- 
ment analysis, control is given to the 
appropriate routine in IBCDASDI, IBCDMPRS, 
or IBCRCVRP. 


VOLUME LABEL CHECKING 


The IBCDASDI program compares the volume 
serial number of the object volume to that 
specified ky the VOLID parameter, if both 
numbers are present. If the VOLID parame- 
ter specifies SCRATCH, no comparison 
occurs. If a serial number is specified, 
and it is not equal to that in the volume 
label, or if the volume label is not pre- 
sent, this routine causes an appropriate 
message to be printed and terminates the 
program. 


The IBCDMPRS program compares the volume 
serial numker of the TO volume to that spe- 
cified by the VCLID parameter, if both num- 
bers are present. If the TO device is 
tape, and there is no volume label present, 
there must be a tape mark at load point, or 
SCRATCH must be specified, in order for the 
program to continue. If the TO device is 
tape and a volume label is present and 
VOLID does not specify SCRATCH, the volume 
serial number in the label must equal that 
specified by VOLID in order for the rrogram 
to continue. If the TO device is direct 
access storage, VOLID must be specified and 
an equal comparison of serial numbers must 
occur in order for the program to continue. 


The IBCRCVRP program compares the serial 
number of the direct access volume to that 
specified by the VOLID parameter. If there 
is no volume label, or if the serial nun- 
bers are not equal, a message is written 
and the request is aborted. 


Entry point to the volume label checking 
routine in all three of the independent 
utility programs is at location CKVOLLBL. 


MESSAGE OUTPUT ROUTINE 


The entry point to this routine is SYSOUT. 
This routine writes messages using the mes- 
Sage output device as defined by the MSG 
control statement. The address of the 
fixed-length message to be printed is 
passed to this routine in register GR2. 

The appropriate CCW is then constructed, 
and its address is passed in register GR2 
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to routine STARTIO. Upon regaining con- 
trol, this routine returns to the calling 
routine. 


WRITE TO OPERATOR ROUTINE 


The entry point to this routine is CEPRNT. 
This routine writes messages which need to 
be brought to the immediate attention of 
the operator. The message is given on the 
console typewriter if one is available. 


I/O CONTROL ROUTINE 


This routine controls every I/C operation 
performed by the independent utility pro- 
grams. It is entered at STARTIO, at which 
time register UCBREG contains the address 
of the appropriate UCB, and register CSR3 
contains the address of the CCW to be 
executed. The channel-unit number is 
loaded into register CSR4&. This routine 
stores the CCW address in the CAW and 
issues the SIO instruction. If the unit is 
unavailable, the WAIT state is entered and 
the program is terminated. If the unit is 
busy, the SIO is issued until the command 
is accepted, at which time the TIO instruc- 
tion is issued repeatedly until the unit is 
not busy. At this time control is given to 
CKCSW, the entry point to the I/O interrup- 
tion analysis routine. The IBCDMPRS pro- 
gram returns control to the calling rou- 
tine, however, to continue processing as 
scon as the I/O is started. 


UNIT CONTROL BLOCKS: The independent util- 
ity programs each contain one unit control 

block (UCB) for each device in use. Figure 
62 lists the UCBs and their uses. UCBs for 
the independent utilities have the follow- 

ing format: 


Byte Function 

00 unit reference number 

01 used only by IBCRCVRP; set to X*FF* 
if the UCB is for a tape drive, set 
to zero when label is checked 

02-03 channel-wit 

04 CAW protect 

05-07 #£CAW 

08-15 interruption PSW 

16-23 interruption CSW 

24-31 sense bytes 
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r oS a -  e  e  eee ane a ee ete tee 
| UCB Lakel | Use in IBCDASDI | Use in IBCDMPRS | Use in IBCRCVRP | 
|------------ }------------------------ }------------------------ }------------—-—--~--—— 4 
{| UCBTO |°TO" device |*TO* device+ | "TO" device+ | 
|------------ }------------------------ ¢------------------------ }--------------—-----— 4 
| UCBFRM | unused | "FROM device+ | *FROM' device+ | 
b- a rh a $---~--------------------- ch sas ts cee es cs cms ms" cua i cme ies cn mms Se Abs Coe i ccs cet ac nse ca ea a a ata ea ge 4 
| UcBSYI [control statement input |control statement input |control statement input | 
| | device | device | device | 
[------------ }------------------------}------------------------}----------—----------- —4 
| UuUcBSYO jmessage output device |message output device |message output device | 
}------------ }------------------------}--------—-------------- }---------------------- 4 
| UCBOPR |operator message device |operator message device |operator message device | 
[~------~---- }-~----------------------}---------—-------------- }--------------------—- 4 
| UCBLIST j unused | unused |record data listing | 
| | | | device | 

waren nnn nf nn nn nnn nnn nnn nr rn nn nf 
| UCBSERT | unused | unused | "DATA replace state- | 
| | | jments input device | 
| | | | (REPLACE only) | 
|}------------ a ene ean en cen ar a aa aa a ee i etree ee 4 
|**TO* and ‘FROM are relative to the operation being performed by the programs. Fora | 
| dump from 2311 disk storage to tape, for example, ‘TO* refers to tape and ‘FROM' | 
| refers to 2311; whereas for the companion restore, ‘TO‘ refers to 2311 and ‘FRCM* | 
| refers to tape. A parallel situation exists for recovering and replacing. | 
ee nyt nent onl eu uO Se Ope IC POE rt A i Een) ee eT eR Cy A eR RE Ae Teen CS Oe Ne ORIN ALCS Period SAU DO ee NE Te ERI J 


Figure 62. 


I/O INTERRUPTION ANALYSIS 


All I/O interruptions cause control to be 
given to the I/O interruption analysis rou- 
tine, whose entry point is CKCSW. Register 
UCBREG contains the address of the applica- 
ble UCB. This routine checks the nature of 
the 1/0 interruption: 


1. Error: control is given to IOERR. 


2. Attention: control is given to ATTN. 
3. Busy: the SIO is reissued. 


4. Device end: 
IORTRN. 


control is given to 


5. Unit end: the SIO is reissued. 


6. Channel end: the TIO is reissued for 
device end. 


IOERR: The CSW, PSW, and CAW are saved, 
and control is given to SENCHK (in case of 
a unit check) or TYPECHK (otherwise). 
ATTN: The request is honored. 

IORTRN: If a surface check is indicated, 
control is given to the appropriate 
(device-dependent) surface check routine; 
otherwise, control is returned to the rou- 
tine which first issued the call to STAR- 
TIO. In the case of IBCDMPRS, the UCB is 
posted complete and control is returned to 
the routine which first issued the call to 
STARTIC. 
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The Use of UCEs in the Independent Utilities 


SENCHK: ‘The device address is entered in 
SIO and TIO instructions, a sense CCW 
address is stored in the CAW, and the SIC 
is issued until it is accepted, at which 
time the TIO is issued. The TIO is reis- 
sued until it is accepted, at which time 
control is given to TYFECHK. 


TYPECHK: The device type causing the 
interruption is determined by interrogating 
the UCB, whose address is in register 
UCBREG. Control is then given to one of 
the following locations: 


Device Type Location 
2302, 2303, 2311, 2314 ERR100 
1442 ERR200 
2400 series tape units ERR300 
1403 ERR400 
1052, 2150 ERR500 
1402 ERR600 
2301 ERR700 
1443 ERR800 
2321 ERR900 


At each of the locations - ERR100, ERR200, 
e-- IERIOO - is the instruction 


BAL ERRLINK,ERRTEST 


followed by a table of two-byte entries. 
The instruction loads the address of tne 
table into register ERRLINK and then gives 
control to routine ERRTEST, which uses the 
indicated table to interrogate status and/ 
or sense bits. 


Each two-byte entry in the indicated 
table consists of a one-byte relative 
pointer to a status or sense bit and a one- 
byte relative pointer to a routine. Rou- 
tine ERRTEST successively interrogates the 
bit indicated by the first byte of the 
table entry; if the bit is on, ERRTEST 
directs control to the routine indicated by 
the second byte of the table entry; if not, 
ERRTEST processes the next entry in the 
table. 


The settings of the first byte of each 
table entry are as follows: 


Bits Setting Meaning 
Case 1: 0-3 x*1" The bit to be tested 
is a status bit. 
4-7 x‘y’ y = the bit position 


(hexadecimal) of the 
bit to be tested, 
relative to bit 32 
of the CSW. 
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Bits Setting Meaning 
Case 2: 0-3 x'o* The bit to be tested 
is a sense bit. 
4-7 Xty" y = the bit position 


(hexadecimal) of the 
bit to be tested, 
relative to bit 0 of 
sense byte 0. 


If the tested half~-byte is found to be 
on, ERRTEST directs control to location 
AtB, 


where: 


A = the address of the first byte of the 
current table entry; 


B = the value of the second byte of the 
current table entry. 
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Initializing and Assigning Alternate 
Tracks on Direct Access Volumes 


(IBCDASDI) 


The direct access storage device initiali- 
zation (IECDASDI) program performs one of 
two functions during a single execution: 


e Initializes a direct access volure to 
conform to Operating System/ 360 
specifications. 


e Cbtains alternate tracks for specified 
defective tracks on an already initial- 
ized disk storage volume. 


The current version of this program 
initializes a volume on: 


2301 drum storage 
2302 disk storage 
2303 drum storage 
2311 disk storage 
2314 disk storage 
2321 data cell storage 


The program obtains alternate tracks for 
a volume on: 


2302 disk storage 
2311 disk storage 
2314 disk storage 
2321 data cell storage 


Initializing a direct access volume con- 
sists of the following: 


e Detecting defective tracks. 


e Assigning alternates to defective pri- 
Mary tracks (on disk storage only). 


e Writing the standard home address and 
record zero on each track. 


e Writing track zero, consisting of two 
IPL records, a standard volume label, 
and space for seven additional volume 
labels (see Figure 63). 


e Writing a standard volume table of con- 
tents (VTOC) at a user-specified 
location. 


e Optionally writing the IPL initializa- 
tion program. 


Obtaining an alternate track for a user- 
specified defective primary (i.e., nonal- 
ternate) track on disk storage consists of 
the following: 


1. Selecting the first available opera- 
tive alternate track from those indi- 
cated in the VTOC of the specified 
volume. 

Zz. writing the address (CCHHR) of the 
primary track in the count field of 
the selected alternate track, and 
writing the address (CCHHR) of the al- 
ternate track in the count field of 
the primary track. 

3. Modifying fields five and six of the 
VIOC DSCB to reflect the new status of 
available alternate tracks. 


PROGRAM FLOW 


Chart 76 shows the logical flow of the 
DASDI program. This section describes the 
operations performed by the IBCDASDI pro- 
gram relative to its functions: initializ- 
ing a volume and obtaining alternate 
tracks. 


Descriptions of the following supervi- 
sory routines of the IBCDASDI program may 
be found in this publication in the section 
entitled “Supervisory Routines of the Inde- 
pendent Utilities." 


e Input Device Check (CKINFUT) 

e Data Input (SYSIN) 

e Control Statement Analysis (CLRSCAN) 

e Message Output (SYSCUT) 

e Write to Operator (OPPRNT) 

e I/O Control (STARTIO) 

e I/O Interruption Analysis (CKCSW) 

After the input device has been defined 
by the operator and checked for validity by 
the IBCDASDI program (see “Checking the 
Input Device"), control statements are read 
and analyzed (see “Control Statement Analy- 
sis*) and control is given to the appropri- 


ate initialization or GETALT section of the 
program. 


 aeepceal, S: Conca Relaaimeats 1 Oates creat i Cae a eas Se ee ee a. ae oa 
| HA || RO I} RL |f — R2 1} R3 |} Ra 1} Jf Rio | 
eee BLoaobaosae y Geers nd MD eee te a as PhS ate eek a 1 Rogers Ss Cagney ae 
HOME TRACK IPL IPL STANDARD ADDITIONAL ADDITIONAL 
ADDRESS DESCRIPTOR RECORD BOOTSTRAP VOLUME VOLUME VOLUME 
RECORD (OR DUMMY) LABEL LABEL LABEL 
(OPTIONAL) (OPTIONAL) 
Figure 63. Track Zero 
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Initializing a Volume 1. When the flag test has been sup- 
e& pressed, the home address (HA) is 
© The following routines are executed to written followed by a maximun- 

initialize a volume: length record zero consisting of 


INTALT, which initializes a track for 
disk and drum devices. 


WRITECT1, which initializes a track for 
data cell storage. 


CONSTRL, which builds an image of track 
zero in main storage. 


YESUSER, which places additional volume 
labels in the track zero format. 


CONSTR2, which writes track zero. 


WRTIPL, which writes the IPL initiali- 
zation program, if requested. 


FMTVTOC, which builds the VTOC. 


WRIVTOC, which writes the VTOC. 


data field of identical bytes of 
hexadecimal 55. 


2. ‘The track is read and checked. 


3. A maximum-length record zero is 
again written, this time consist- 
ing of data field of identical 
bytes of hexadecimal 00. 


4. The track is read and checked. 


5. If no data error has occurred in 
steps 2 to 4 and no additional 
passes are requested, record zero 
is rewritten (see step 8). If 
additional passes are requested 
on this track, repeat steps 1 to 
4, 


6. If either step 2 or step 4 have 
indicated a data error, steps 1 
to 4 are repeated ten more times, 


Following execution of WRIVTOC, the pro- 
gram initiates normal end-of-job and the 


unless a data error occurs. 


CPU assumes the WAIT state. 7. j%$«If any other data error occurs 
during step 6, the track is 
INTALT flagged as defective. An alter- 


Pe 


initializes a track for disk and drum 
devices. When the device is disk, 
INTALT first checks the track for hav- 
ing been previously flagged as defec- 
tive. (This test can be suppressed 
for the first initialization on that 
volume.) Alternate tracks are immedi- 
ately assigned for tracks flagged as 
defective. 


Disk and drum track initialization may 
or may not include surface analysis. 
When the recording surface is to be 
checked, the alternate tracks are 
checked first. (The alternate track 
concept is not defined for drum 
storage.) If an alternate track is 
found to be defective, it is flagged 
as such (later, FMTVTOC adjusts field 
six of the VTOC DSCE to indicate the 
number of available alternate tracks). 
If a primary track is found to be 
defective, it is assigned an alternate 
by ASGNALT, which is the same routine 
used to assign alternate tracks for a 
GETALT execution of IBCDASDI. After 
the track is assigned by ASGNALT and a 
message printed, control is returned 
to the initialization section of the 
program, at which time the next track 
is checked, or, if all tracks have 
been checked, track zero is con- 
structed. Tracks are checked for a 
good recording surface in the follow- 
ing way: 


nate track is assigned when the 
device is disk. For drum 
devices, a message is given indi- 
cating the address of the defec- 
tive track. If the HA-RO area is 
defective on a 2314 disk storage 
volume, an attempt is made to 
move the HA-RO fields down the 
track approximately 800 bytes. 


8. A track descriptor record (RO) is 
then written and verified as an 
8-byte count field followed by an 
8-byte data field of zeros. 


9. When all tracks have been ini- 
tialized, control is given to 
CONSTR1. Otherwise, the sequence 
is repeated for each track. 

(When initialization without sur- 
face analysis is requested, only 
steps 8 and 9, are repeated for 
each track.) 


WRITECT1 


performs data cell track analysis in 
the following way: 


1. A home address (HA), track 
descriptor record (RO), and a 
maximum length record one (R11) 
are written on each of 20 tracks 
of a cylinder. The data field of 
Ri consists of identical bytes, 
containing hexadecimal E5. 
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2. An address compare is made on 
each of the tracks written in 
step 1, and record one is veri- 
fied for each track. 


3. Record one is erased for each 
track written above. 


4. If no errors occur in step 2, 
steps 1 to 3 are repeated for 
each cylinder with additional 
address compares made after the 
completion of each strip, sub- 
cell, and cell. 


5. If an error (i.e., data check or 
missing address marker) has 
occurred during step 2, the track 
is rewritten and reread until 
either a successful pass is 
obtained or 113 errors have 
occurred. If this track is in 
the alternate area, it is flagged 
to prevent its future use. 
Ctherwise, an alternate track is 
assigned by ASGNALT, and a mes- 
sage is printed. 


6. When all tracks have been ini- 
tialized, control is given to 
CONSTR1. 


CONSTR1 
constructs track zero. If the IPL 
function is selected, records one and 
two are written as an IPL boctstrap 
program and a program to load the IPL 
initialization program. If the IPL 
function is not selected, record one 
is written as a program to set the 
WAIT state in the CPU in case the 
volume is loaded for execution. 


Regardless of whether the IPL function 
is selected, record two is written as an 
IPL bootstrap. (Since record one will set 
the WAIT state in the CPU in case a non-IPL 
volume is loaded for execution, there is no 
danger of executing record two.) 


YESUSER 
writes up to seven user-supplied addi- 
tional volume labels as records 4-10. 
Space is allocated for those volume 
lakels not supplied. 


CONSTR2 
writes track zero, consisting of two 
IPL records (or a dummy IPL record), a 
standard volume label and up to seven 
additional lakels. 
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WRIIPL 
writes the user-supplied IPL initiali- 
zation program, if requested. The 
program is written on the first track 
preceding the alternate track area 
(track 1999 on 2311), or, if that 
track is defective, on its assigned 
alternate. 


FMTVTOC 
constructs the DSCBs needed for the 
vToc. They are the VTOC DSCB (format 
4) and the DADSM DSCB (format 5). 


WRIVTOC 
writes at the user-specified location 
of the vToc the DSCBs constructed by 
FMTVTOC. 


Obtaining Alternate Tracks 


If the IBCDASDI program is executed under 
the GETALT option, control is given to 
location GETALT following control card ana- 
lysis. Routine GETALT performs a track 
check on the user-specified track if the 
track check bypass is not selected. If the 
track is found to be operative, a message 
to that effect is printed (or displayed) 
and the next GETALT request is processed. 
If the track check bypass is selected, or 
if the track is found to be defective, the 
following routines are executed in the 
order in which they appear. 


ASGNALT 
flags the given track as defective and 
assigns it an alternate as described, 
if it is a primary track. If the 
given track is an alternate, it is 
flagged as defective; if the given al- 
ternate track had been assigned to a 
primary, an operative alternate is 
assigned to the primary. 


TIRKPRNT 
causes a message to be printed stating 
the addresses of the defective track 
and its assigned alternate. 


GETALT4 
decrements field six of the VTOC to 
reflect the fact that one less alter- 
nate track is available, and incre- 
ments field five to point to the next 
available alternate track. 


Control is then given to location GETALT 
tc repeat the process for the next user- 
specified track, or, if none exists, 
initiates normal end-of-job and sets the 
CPU to the WAIT state. 


Chart 76. IBCDASDI - Initializing and Assigning Alternate Tracks on Direct Access Volumes 


CKINPUT A3 
Define Input 


A2 
Device and 
Perform Setup 
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DSCB Alternate 
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Construct 
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VTOC, and DADS. 


WRTVTOC 
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Dumping and Restoring a Direct 
Access Volume (IBCDMPRS) 


The direct access storage device dumr- 
restore program performs one of two func- 
tions during a single execution: 


e Dumping (copying) data from a direct 
access volume to 2311 or 2314 disk 
storage or magnetic tape, in a format 
recognizable to the restore portion of 
the program. 


e Restoring (recopying) data which has 
keen dumped by this program. Data is 
restored only to a volume residing on a 
device of the same model number from 
which it was dumped. 


There is no provision to restore from 
2311 to 2311 or from 2314 to 2314. 
Instead, another dump of the same type may 
ke performed. 


A dump may ke either partial (a set of 
contiguous tracks is dumped) or entire (the 
entire volume is dumped). 


The current version of this program 
dumps the data contents of a volume from: 


e 2301 drum storage to magnetic tape or 
2311 disk storage or 2314 disk storage. 


e 2302 disk storage to magnetic tare or 
2311 disk storage or 2314 disk storage. 


e 2303 drum storage to magnetic tare or 
2311 disk storage or 2314 disk storage. 


e 2311 disk storage to magnetic tare or 
2311 disk storage or 2314 disk storage. 


e 2314 disk storage to magnetic tape or 
2311 disk storage or 2314 disk storage. 


e 2321 data cell storage to magnetic tape 
or 2311 disk storage or 2314 disk 
storage. 


DUMPED DATA FORMAT 


The format of dumped data depends on the 
device configuration of the dump: 2311 to 
2311 (or 2314 to 2314), direct access to 
tape, or non-2311 direct access to 2311 (or 
non-2314 to 2314). 


2311 TO 2311 (CR 2314 TO 2314): Data from 
the input 2311 (or 2314) is copied record- 
for-record and track-for-track. For this 
reason a restore from 2311 to 2311 (or 2314 
to 2314) is not provided, but can be 
effected ky another dump. 
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DIRECT ACCESS TO TAPE: 


The following rec- 
ords are written on tape for a direct 
access-to-tape dump (see Figure 64): 


e A limits record is written as the first 
record (following any labels) on each 
volume of tape. This record contains 
the addresses of the first track 
dumped, the last track dumped, and the 
the first track dumped on this volume 
of tape. 


e A control record is written for each 
track dumped, immediately preceding the 
dumped data from the track. The con- 
trol record contains a channel program 
to be used by a subsequent restore to 
write one track. 


e A dumped track image is written as a 
INMaximum-length physical record. A 
track image is not split between tapes. 


e A trailer label is written at the end 
of each tape volume, immediately fol- 
lowing the tape mark. During a 
restore, successive oring of trailer 
labels indicates whether another FROM 
volume is to be mounted. The mounting 
of FROM volumes during a restore is 
thus order-independent. 


NON- 2311 TO 2311 (OR NON-2314 TO 2314): 


The records written as record one of track 
one of each 2311 (or 2314) volume needed 
for the dump are similar to those for tape, 
but with the following differences: 


e The limits record is written as record 
one of track one of each 2311 (or 2314) 
volume needed for the dump. The limits 
record contains (as with tape) the 
addresses of the first track dumped, 
the last track dumped, and the first 
track dumped onto this 2311 (or 2314) 
volume. 


e The control record is written immedi- 
ately preceding each dumped track 
image. The first control record ona 
volume is written as record one of 
track two; subsequent control records 
are each written as record one of the 
first track following the image of the 
last track dumped. The control record 
consists of two subsets: (1) eight 
two-byte fields, each containing the 
number of bytes of the original 
(dumped) track written on a track of 
the 2311 (or 2314) and (2) a channel 
program to be used by a subsequent 
restore to write one track. 


e A dumped track image is written in 
maximum-length physical records on as 
many 2311 (or 2314) tracks as are 
necessary. The number of bytes of the 


dumped non-2311 (or non-2314) track 
written on each 2311 (or 2314) track is 
recorded in the control record for the 
track image. A dumped track image is 
not split between disk packs. 


e The trailer label is written as record 
one on the last available track of each 
2311 (or 2314) disk pack used. The 
contents of the trailer label for 2311 
(or 2314) are identical to those for 
tape. 


PROGRAM FLCW 


The flow of the direct access storage 
device dump/restore program is shown in 
Chart 77. Descriptions of the following 
supervisory routines of the direct access 
storage device dump/restore program may be 
found in this publication in the section 
entitled "Supervisory Routines of the Sup- 
port Utilities." 


Input Device Check (CKINPUT) 

Control Statement Analysis (CLRSCAN) 
Message Cutput (SYSOUT) 

Write to Operator (OPPRNT) 

I/O Control (STARTIO) 

I/O Interruption Analysis (CKCSW) 


After the input device has been defined 
by the operator and checked for validity by 
this program, control statements are read 
and analyzed and control is given to the 
appropriate dump or restore section of the 
program. 


Dumping 


If the program is dumping, the following 
routines are executed in the order listed. 


TOTAPE 
ensures that the TO volume is mounted, 
whether tape or not. If the dump is 
not from 2311 to 2311 (or not from 
2314 to 2314), this routine also 
writes the limits record. 


MODT KADF 
reads the count fields on one track of 
the FROM volume and at the same time, 
if two channels are used, writes head- 
er or data records on tape from loca- 
tion DTABUFF. 


ANALSENS 
uses the information obtained from 
reading the count field of one track 
to construct a channel program capable 
of reading the count, key, and data 
fields of the track. 


READCCWs 
moves the channel program to a higher 
area in main storage and executes the 


channel program constructed by ANAL- 
SENS, reading one track of the FROM 
volume into the buffer DTABUFF. (In 
the buffer, record images are 
blocked.) 


TSTWRISP 
converts the channel program at loca- 
tion DTALENG to a channel program cap- 
able of writing the buffer (with read- 
back check) onto a track of the same 
device from which it was read in its 
original format. 


If the dump is 2311-2311 (or 2314- 
2314), the channel program is 
executed, thus writing one track on to 
the 2311 (or 2314). 


If the dump is not 2311-2311 (or not 
2314-2314), the converted channel pro- 
gram is not executed during dumping, 
but will be executed during a future 
restore. After converting the channel 
program, this routine gives control to 
DMPDASD if the TO device is tape, or 
to STRIDSK if the TC device is 2311 
(or 2314). 


DMPDASD 
writes the control record, consisting 
of the channel program at location 
DIALENG on the tape. Control is then 
given to MODTKADF, EOJ1, EOJAA, or the 
program terminates (see Chart 77). 


STRTDSK 
writes the control record and the 
buffer on 2311 (or 2314) disk storage. 
The function performed is similar to 
that of DMPDASD (writing on tape), but 
with the following exceptions (see 
Figure 64). 


e The control record for dumping 
from non-2311 to 2311 (or non-2314 
to 2314) consists of a 16-byte 
field beginning at DTALENG pre- 
fixed to the channel program at 
location CCWLIST. 


e Several 2311 (or 2314) tracks may 
be needed to contain the data in 
the buffer at DTABUFF. If so, the 
buffer is written in maximum- : 
length physical records on as many 
tracks as are needed. A buffer 
image is not split between disk 
packs. Any remaining space on the 
last track needed. to contain the 
buffer image is not used. (The 
next control record begins on the 
next available track.) 


Control is then given to MCDTKADF, EQOJ1, 
EOJAA, or the program is terminated (see 
Chart 77). 
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Figure 64. Dumping and Restoring a Direct Access Track 


EOJ1 
is given control when a new TO volume 
is needed. EOJ1 writes the trailer 
label on the current TO volume and 
then gives control to routine TOTAPE 
to insure that a new volume is 
mounted. (See “Dumped Data Format" 
for a description of the trailer label 
and its location for tape or disk.) 


(or 2314) disk storage. When the 
device is not the 2301 drum and if 
there is at least 64K of main storage, 
buffers are built in upper storage for 
the data records and the channel 
programs. 


RETRTAPE 


EQJAA 
is given control at the conclusion of 
an entire 2311-2311 (or 2314-2314) 
dump. EQOJAA updates field six of the 
vVTOC DSCB to reflect any alternate 
track assignments necessitated during 
the dump. A WAIT state is then set in 
the CPU and the program terminates. 


Restoring 


After the input device has been verified 
and control statements have been analyzed 
(see “Supervisory Routines of the Indepen- 


reads the control record into location 
DTALENG1, when storage is available. 
(The control record consists of a 
channel program capable of restoring 
the dumped track.) From DTALENGI, the 
record is moved to DTALENG. The image 
of the dumped track (in blocked record 
format) is read into location DTA- 
BUFF1, when storage is available, and 
then is moved to DTABUFF. Control is 
then given to MODTKADT. 


dent Utilities"), control is given to the S TRTDSK 


restore section of the program, consisting 
of the following routines, which are 
executed in the order indicated. 


FRMTAPE 
ensures that a FROM volume is mounted, 
whether tape or disk. The order of 
volume mounting is immaterial. After 
a FRCM volume is mounted, this routine 
reads the limits record (record one). 
Control is then given to RSTRTAPE, if 
the FRCM device is tape, and to 
STRTDSK, if the FROM device is 2311 
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performs the same logical function as 
RSIRTAPE, but reads instead from 2311 
(or 2314) disk storage. The control 
record is first read into location 
DIALENG (also causing the channel pro- 
gram, the second field of the control 
record, to be read into location 
CCWLIST). The first field of the con- 
trol record is then used to read as 
Many tracks as are necessary to *°fil1l" 
the buffer DTABUFF, that is, to cor- 
plete one dumped track image in the 
buffer. Control is then given to rou- 
tine MODTKADT. 


v 


MODT KADT 


EQJA 


executes the channel program at loca- 
tion DTALENG, thus restoring one track 
in its original format. If the FROM 
volume is not exhausted, control is 
given to RSTRTAPE or STRTDSK, depend- 
ing on whether the FROM device is tape 
or disk, respectively. When the FROM 
volume is exhausted, control is given 
to EOJA to read the trailer label. 


reads the trailer label (for a 
description of the trailer label and 
its location, see “Dumped Data For- 
mat"). Successive oring of trailer 
labels by this routine controls FROM 
volume mounting. If another FROM 


volume is to be processed, control is 
given to FRMTAPE to insure that it is 
mounted, whether tape or disk. If no 
more FROM volumes are to be processed, 
control is given to ECJAA (if the 
restore is entire), or the program is 
terminated (if the restore is par- 
tial). Note: a restore is entire or 
partial depending only on the limits 
of the companion dump. 


EQJAA 


updates field six of the VTOC DSCB to 
reflect any alternate track assign- 
ments necessitated during the (entire) 
restore. No such update is provided 
for a partial restore. 
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Chart 77. IBCDMPRS - Dumping and Restoring a Direct Access Volume 
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Recovering and Replacing a 
Track (IBCRCVRP) 


The recover-replace program performs one of 
two functions during a single execution: 


e Recovering (reading) data from a track 
on an initialized direct access volume; 
listing defective records, or all rec- 
ords, if specified; and writing the 
good data on a recovery output tare for 
use ky the replace portion of the pro- 
gram during a future execution. 


e Replacing a good track image on an 
operative track by merging data from 

7 the recovery output tape with replace- 

q ment data supplied by the user. 


Requests may be stacked, but all must 
specify the same function -- recover or 
replace. 


The current version of the program sup- 
ports recovery and replacement of data on: 


2302 disk storage 
2303 drum storage 
2311 disk storage 
2314 disk storage 
2321 data cell storage 


As a stand-alone program, recover- 
replace contains the following supervisory 
routines, described under the heading, 
"Supervisory Routines of the Independent 
Utilities": 


Input Device Check (CKINPUT) 

Data Input Routine (SYSIN) 

Control Statement Analysis (CLRSCAN) 
Volume Lakel Check (CKVOLLEL) 
Message Cutput Routine (SYSOUT) 
Write to Operator (OPPRNT) 

I/O Control (STARTIO) 

I/O Interruption Analysis (CKCSW) 


IBCRCVRP IBCRCVRP 


(low) 


Supervisory Routines 


VRECOVR VRECOVR 


Recovery Coding 


VRECTAB VRECTAB 


VGOODBUF 


VGOODBUF 


Replace Coding 


(high) 
A. Program Listing 


Figure 65. 


Supervisory Routines 


Recovery Coding 


Control Data 


B. Main Storage Contents for 
Recover Execution 


Main Storage Management for Recover Replace 


The logic of the recover and replace 
portions of the program is shown in the 
following charts: 


Chart 78. Overall Logic 

Chart 79. Recover Logic 

Chart 80. Recover Data Check Routine 

Chart 81. Recover Count Check and End- 
of-track Routines 

Chart 82. Replace Logic 


Overall Flow 


When the program gains control, it waits 
for the operator to define the input device 
from which utility control statements are 
to be read. The program then verifies that 
the input device definition is valid, and 
begins to read, scan, and analyze utility 
control statements. 


Figure 65 suggests how main storage is 
Managed by the program. The space occupied 
by the replace portion of the program after 
initial loading is used as buffer for read- 
ing the track to be recovered or replaced. 
A recover run causes the replace coding to 
be overlaid by the track image; for a 
replace run the replace coding is first 
moved to overlay the recover portion of the 
program. 


Depending on the request, the appropri- 
ate recover or replace coding is then 
executed. Following this, listing is per- 
formed: for a recover run, if the LIST 
option is specified all records on the 
track are listed, or otherwise only the 
defective records; for a replace run, if 
the LIST option is specified all records on 
the replacement track are listed, or other- 
wise only the replacement records. When 
all requests have been serviced, the pro- 
gram issues an end-of-job message, rewinds 
and unloads the tapes, and sets the wait 
state in the CPU with D's displayed on the 
console lights. 


IBCRCVR 
(low) BC P 


Supervisory Routines 


VRECOVR 


Replace Coding 


VRECTAB 


VGOODBUF 


Buffer 


(high) 
C. Main Storage Contents for 
Replace Execution 
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Recovering 


The recover portion of the program reads 
the specified track of the direct access 
volume, gathers control data to be used by 
a future replace run, and records the con- 
trol data and the successfully recovered 
portion of the track on a recovery output 
tape. Figure 66 shows the tape format. 


Records are read into VGOODPUF. If a 
data check is detected in the count field 
of a record or an address marker is missing 
from a record, the remaining bytes on the 
track, including records and gaps, are read 
into VGCCDBUF using the space count command 
and are immediately listed on the message 
device. After listing, the records and 
gaps are cleared from VGOODBUF and the next 
record is read into VGOODEUF immediately 
following an 8-byte entry left in place of 
the record which had the bad count or mis- 
Sing address marker. If the count field is 
good and the address marker is present, any 
key and/or data fields read, whether good 
or defective, will remain in VGOODBUF as 
read. (See Figure 67.) 


As each record is read into the buffer, 
an entry is bcuilt in the record control 
table VRECTAB. Each entry consists of a 
1-byte flag and a 3-byte pointer to the 
record image. The settings of the flag 
byte in VRECTAR are as follows: 

Bit=1 Meaning 

Bad count field 

Bad key field 

Bad data field 

Missing address marker 
Last record flag 
Recovery was aborted 

ECF with key 

ECF (with or without key) 


. 
AOS WHF Oo 


After reading the track, recover builds 
at location CCWLIST a channel prograr which 
will be completed and executed by replace 
in writing and read-back checking the data 


LABEL 1 TAPE Uj 
(Optional) [J MARK 7 
ID = 4-byte constant "RECV" 
VOL = 6-byte volume ID of 
direct-access device 
TRACK = 12-byte 
BBBBCCCCHHHH 
of recovered track 
DATE = 8-byte date of 
assembly MM/DD/YY 
PAD = 50 bytes of zeros 


Figure 66. Format of Recovery Output Tare 
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CCWLIST = Channel program 
to be used to 
replace data on 
volume 
VALTBUF = Pointer to buffer 
for replacement data 
VRECTAB = Table of control 
data for track 


put on the alternate track. Recover then 
stores into VALTIBUF the address of the 
first doubleword boundary following the re- 
covered data in VGCODBUF. This establishes 
the area replace uses to receive data for 
records with bad counts or missing address 
markers. Recover then writes the recovery 
output tape. 


Replacing 


Ihe replace portion of the program, which 
is moved to overlay the recover portion, 
reads the recovery output tape, reads 
replacement data supplied by the user, 
assigns an alternate track (if the volume 
resides on disk storage), and writes the 
merged data on the track. 


The header record on the recovery output 
tape is first read and the serial number of 
the direct access volume is checked. The 
next two records (control record and recov- 
ered data) are then read into the same 
aksolute storage locations they occupied 
during the companion recover run (VRECTAR 
and VGOODBUF). Flag bytes in VRECTAB are 
then interrogated, and replacement data is 
read as needed. Replacement data is read 
into the alternative buffer (pointed to by 
VALTBUF) if the record to be replaced had a 
missing address marker or a bad count 
field; otherwise replacement data is read 
into VGOODBUF, overlaying the corresponding 
defective recovered key and/or data por- 
tions. When all replacement data has been 
read, an alternate track is obtained on the 
volume (if it is non-drum storage), and the 
merged recovery and-replacement data are 
written on the track using the channel pro- 
gram at location CCWLIST. If the HA-R0 
fields are defective on 2314 disk or 2321 
data cell storage, the program attempts to 
move these fields approximately 800 bytes 
down the track. 


Example: Figure 67 illustrates a complete 
cycle (two executions of the program) for 
recovering and replacing a track. 


VGOODBUF = Buffer 
containing 
recovered data 


During a recover execution, 

the track containing defective 
records is read into VGOODBUF; 
for each record, a flag and 
pointer are set in VRECTAB, 

In this example, the given track data. The recover 
is found to be in the following 


© @ 


The recovery output 
tape is written, 
consisting of a header 
record, a control 
record, and recovered 


execution terminates. 


condition: 
HA - Good 
RO - Good 
Rl - Bad count 
R2 - Bad key 
R3_ - Bad data 
R4 - Missing address marker 


R5 - Last record, good 
Main Storage 
-—— age 
| 
2311 Disk Storage | VRECTAB 
t 
Defective 
4 Alternate 
! 
Recovery Output : 
Uti Flag (1) 
—? VALTBUF 
! 
| 
| 
4 | 
Figure 67. 


Pointer (3) 


@ 


During a subsequent 
replace execution, the 
recovery output tape is 
read into the same 
absolute storage 
locations from which 

it was written. 


VGOODBUF 


HA and Blanks 


RO Count and Data 


R2 Count, Key and Data 


An Example of the Recover-Rerplace Cycle 


R3 Count, Key and Data 


@) 


Using control data from 
VRECTAB, replacement 
data is read into 

(a) VGOODBUF, or 
(b) the buffer pointed 
to by VALTBUF, in 
case of bad count or 
missing address marker. 


track. 


Independent Utilities: 


New R2 Key 


New R3 Data 


New R1 Count, 
Key and Data 


©) 


Using the channel program 
read from the recovery 
output tape, the merged 
(old and new) data is 
written on an alternate 


Replacement Data 


ied 
pr 
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Chart 78. IBCRCVRP Overall Logic 
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Chart 79. 
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Chart 80. IBCRCVRP Recover Data Check Routine 
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Occurred Switch Bad RO Bad 


VBADDT 


Yes No 5] 


F4 Set 
No VBADKEY Switch 


Was K 
Read Without 
Error 


to Signal Key 
is Bad 


G4 


Set Expect 
EOF Switch. 
Make Next to 

Last CCW a Read 


Count 


H3 
his This is an EOF 
Record 


VCOMDMV J2 


Make Last 
Command a Read 


J4 


Permanent 
Error 


No 
CH VERRORKY. K5 


K4 


Issue Command 
Chain 


Yes 


Data Followed 
By Read Count 
Multi-Track 


Clear Bad 
Data Switch, 
Read Data. Got 
Record this 
Time 


Flag Record 
Yes as Bad Key, 
Good Data 


Does 
Record Have a 
Bad Key 
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Chart 81. IBCRCVRP 


Ay 


VCNTCK Al 
Set Bad-Count 
Switch 
VCOUNTED, Round 
Up VRECTAB 
Address 


BI 
RO Bad Yes 


VRECTAB as Bad 
Count Field 


VCALCSZ D1 


Move Count 
Field as Read 
into VGOODBUF, 
Calculate Size 


Set Up Space 
Count Command. 
Issue CCWs to 
Read Remainer 

of the Track 


Dee Fl 


Set Up and 
Write Message of 
Bad Count or Miss- 

ing Address Mark 


Force 
List of Bad 
Record on 
Message Device 


Bad Count 
Switch 


Return 
After Data 
Check on Space 
Count, Refer to 


MAM 


H2 


Reset 
Missing Address 
Marker Switch 


Move Read 
Count M/T to 
End of CCWs. Up 

Record Count 


ny 


VEOT 


Track 


Flagged Bad 
Original 


Flag Last 

Record in 

VRECTAB, 
Calculate Top 
of VGOODBUF 


Store Highest 
Address in 
VGOODBUF into 
VALTBUF 


VREPCCW D3 


Build CCW 
List for 
Replace to Use 
to Write 
Records 


Create Read 
Back Check CCWs 


for Write CCWs 
Built 


G3 


Enter 
Write Recover 


Tape Routine at 
RCVRTAPE 


insert NOP 
Command in CCW 
List to 
Suppress MAM 
for Record 


Yes 


Recover Count Check and End-of-Track Routines 


Make Op. 


Code for Last 
Record Written 
a Write Special 
kD 


RCVRTAPE G4 ey 


Use 
TAPECHKS 
Routine to 
Position Tape 


Write Three 
Records on the 
Tape, WT™M, 
Rewind, Unload 
Tape 
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Chart 82. 
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VREPLA 


IBCRCVRP 


Reset 
Switches.Clear 


Buffer Area 


Replace Logic 


READREC]. A 


Read a 
Record from 
Recover Tape 


CKVOLLBL B3 
Check Volume 
Label, Check 

Date, Check 
Track Defined, 
Halt on Error 


TAPEREAD C3 


Read in the 
Next two Tape 
Records 


CKTABLE 03 


Check 


VRECTAB for 
Record Entries 
of this Track 


RDCARD 


Read 
Another Insert 
Card for the 
Replacement 
Data 


in and Process 
the 

Replacement 
Dg 


this the Last 
Record 


Yes 
VTOCREAD G3 


Assign an 
Alternate 


Track if the 
Device is Disk 
Storage 


CKOVRLW H4 


H3 Change Last 
Overflow Yes CCW Code to 
Option Write Special 


Count-Key-Data 


MOREIO J3 


Execute 
the CCW List 


SPI R DS 
K3 
Lost Yes Write 
Option Last Record 
on Track 
No 


: Appendix A: Modules of Utility Programs 


This appendix describes the modules of each 
utility program. The module names given 
are the SYS1.UT506 names. When these names 
differ from equivalent SYS1.LINKLIB names, 
the latter are given in parentheses. In 
the case of the independent utilities 
IBCDMPRS, IBCRCVRP, and IBCDASDI, the pre- 
vious statement is not applicable since 
these programs are part of the SYS1.SAMPLIB 
data set. 


IEBCCMPR 


IEBCROOT 
is the root segment; it opens and 
closes SYSPRINT, writes messages, and 
calls the proper modules. 


IEBCOMPM 
is the message module. 


IEBCANAL 
interprets returns from IEBCCS02. 


IEBCMAIN 
when the data sets are partitioned, 
compares directories to determine 
whether one is a subset of the other; 
when the data sets are sequential, it 
compares the data sets. 


IEBPTPCH 


IEBPPUN1 
is the root segment; it opens and 
closes SYSPRINT data set, calls proper 
modules, and prints all messages and 
control cards. 


IEBPPMSG 
is the message module. 


IEBPPAL1 
obtains storage for and then con- 
structs tables and work areas, calls 
and then interprets returns from 
IEBCCSO2, checks for valid parameters. 


IEBCCS02 
opens and closes SYSIN data set, reads 
and scans cards, returns data to 
IEBPPAL1 . 


IEBPPCH1 
is the processor module; it handles 
sequential and partitioned data sets, 
opens and closes SYSUT1 and SYSUT2 
data sets, checks for valid control 
cards, and examines tables built by 
IEBPPAL1. 
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IEBCOPY 


IEBCOPYA 
is the root segment; it gives control 
to the proper modules, and prints all 
error messages and control cards. 


IEBCOPYB 
is the message module. 


IEBCOP YC 
opens and closes SYSPRINT data set, 
obtains storage for and constructs 
work areas and tables, calls and then 
interprets returns from IEBCCS02, and 
when control cards are present, checks 
them for validity. 


IEBCOPYD 
is the processor module; it opens and 
closes SYSUT1 and SYSUT2 data sets, 
analyzes tables from CCFYC and: if 
total copy, reads in directory and 
sorts by ITRs; if exclusive copy, 
sorts exclude table by MEMBER NAME 
sequence, reads the data set direc- 
tory, compares for excludes of direc- 
tory names, and sorts directory names 
by TTRsS; if inclusive copy, copies 
included names and moves data from 
input buffer to output buffer. 


IEFBEDIT 


IFBEDIT 
extracts records from a master file of 
JCL statements to create an edited 
input stream data set. 


IEBGENER 


IEBGENRT 
is the root segment; it opens and 
Closes SYSPRINT, writes all messages 
and control cards, and gives control 
to proper modules. 


IEBGMESG 
is the message module. 


IEBGSCAN 
obtains storage for and then con- 
structs tables, calls and then inter- 
prets returns from IEBCCS02, analyzes 
control cards. 


IEBGENR 3 
is the processor segment root module; 
it opens and closes input and output 
data sets and performs label 
processing. 


Modules of Utility Frograms 219 


IEBGENS3 (IEBGENR3) 
performs I/C operations for variable 
spanned records. 


IEBGENO3 (IEBGENR3) 
performs I/O operations for non- 
variable spanned records. 


IEBMOVE2 
moves logical records from input to 
output buffer. 


IEBEDIT2 : 
moves, with editing, logical records 
from input to output buffer. 


IEBCONH2 
converts data from H set BCD to 
EBCDIC. 


IEBCONP2 
converts data from packed to zoned 
decimal. 


IEBCONZ2 
converts data from zoned to packed 
decimal. 


IEBLENP2 
computes total output record whenever 
an input record is encountered. 


IEHUCSLD 


IEHUCSLD 
checks for type of operation, for 
universal character printer, and for 
buffer load characters; issues WTOR to 
mount proper chain; loads the buffer 
and verifies it, if specified. 


IEHIOSUP 


ITEHIOSUP 
finds first load module of SVC routine 
then loads succeeding modules, reads 
in the member, and updates member's 
XCTL takle, if present. 


IEHINITT 


IEHINITT 
is the root segment; it opens and 
closes SYSIN and SYSOUT, builds tare 
lakel image in main storage, extracts 
information from the JFCB, and links 
to SVC 39 to write the tape label. 


IGCO0003I (Svc 39) 
writes a tape volume label followed by 
a dummy header label and a tapemark. 


IEHSCAN 
reads control statements and scans 
them for INITT command and for 
keywords. 

IEHPRNT 
is the message module. 
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IEHDASDR 


IFHDAOUT formats and writes dumped informa- 
tion to the SYSOUT data set. 


IEHDASDR 
is the entry point for the progran. 
It performs initialization and passes 
control to the Control routine. 


IEHDASDS 
is the Control routine. It processes 
control statements and passes control 
to the functional routines. 


IFHDCELL 
is the Data Cell Analysis routine. It 
performs surface analysis of data cell 
volumes. 


IEHDDATE 
is the Date routine. It obtains the 
day"s date and passes it to the Print 
routine, IEHDPRNT. 


IEHDEXCP 
is the I/O subroutine of the Dump rou- 
tine. It performs all I/C operations 
during a dump except for those per- 
formed by IEHDAOUT. 


IEHDGETA 
is the control routine for performing 
alternate track assignment. 


IFHDLABL 
writes new volume serials and owner 
names on direct access volumes. 


IEHDMSGB 
is the Message Builder routine. It 
selects, constructs, and stores 
messages. 


IEHDMSGS 
is the message CSECT. It contains the 
messages used by the IEHDASDR program. 


IEHDPASS 
is the Password Protection routine. 
It checks the passwords required for 
security protected data sets, and 
checks data set expiration dates. 


IEHDPRNT 
writes messages to the SYSOUT data 
set. 


IEHDREST 
is the Restore routine. It reads 
dumped information from a restore tape 
and writes the information on direct 
access volumes. 


IEHDSCAN 
is the Scan routine. It reads control 
statements and scans them for syntax 
errors, one field at a time. 


IEHDVTOC 
is used by the Analysis routine to 
write system data on direct access 
volumes. 


IGCO008B 
is the first load of the SVC 82 rou- 
tine. It builds DEBs for new direct 
access volumes and passes control, 
when necessary, to one of the other 
loads. 


IGC0108B 
is a load of the SVC 82 routine. It 
assigns an alternate track on a direct 
access volume. 


IGC0208B 
is a load of the SVC 82 routine. It 
updates UCBs to reflect new volume 
serials or VTOC location changes. 


IGG019P8 
is the End-of-Extent appendage rou- 
tine. It modifies extent limits and 
file masks in DEBs. 


IGG019P9 
is the Abnormal End appendage routine. 
It is used to bypass I/O Supervisor 
error processing. 


IEHMOVE 
IEHMCVE 
is the root segment; it obtains a save 
area. 
ITEHMVSRS 
loads modules if required. 
ITEHMVXSE 
gets three work files and a work area. 
IEHMVXSF 
is the first-time control module for 
TEHMVSSF. 


IEHMVSSF (IEHMVSF) 
mounts volumes. 


IEFWMSKA (IEHMVSF) 
is the systems device mask table. 


TEHMVEST 
clears work areas and initializes for 
a request. 


ITEHMVESJ 
reads cards. 


IEHMVSSS (CIEHMVESS) 
builds tables and sets switches. 


TEHMVESTI 
opens the catalog for a data set group 
operation. 
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IEHMVESC 
reads the catalog and writes it onto 
SYSUT1 for a data set group operation, 
or writes the catalog onto SYSUT2 for 
a move or copy catalog. 


IEHMVESH 
closes the catalog and sets up for 
following request. 


IEHMVSSZ (IEHMVESZ) 
checks for volume or data set. 


IEHMVSSV (IEHMVESZ) 
obtains "FROM* DSCB, links to module 
for mounting of ‘FRCM* volume. 


IEHMVMRZ (IEHMVESZ) 
writes messages. 


IEHMVSRZ (IEHMVESX) 
handles routing and errors. 


IEHMVSRV (IEHMVESX) 
allocates the catalog on two volumes 
if necessary. 


IEHMVSRK (IEHMVESX) 
reads unloaded records. 


IEHMVSRY (IEHMVEXV) 
handles routing and errors. 


IFHMVSSX (CIEHMVEXV) 
allocates two data sets. 


IEHMVSIC (IEHMVEXV) 
reads "FROM*’ partitioned data set 
directory. 


ITEHMVMRY (IEHMVEXV) 
writes messages. 


IEHMVSSY (IEHMVESY) 
handles routing and errors. 


IEHMVSRM (IEHMVESY) 
writes first unloaded record when 
applicable. 


IEFHMVSRX (IEHMVESY) 
kuilds ‘TO" and ‘*FROM' DCBs, handles 
*TO" DD and *FROM' DD. 


IEHMVMSY (IEHMVESY) 
writes messages. 


IEHMVMRZ (IEHMVESY) 
writes messages. 


IEHMVETJ 
reads "FROM* and writes "TO" sequen- 
tial or partitioned data set without 
performing reblocking. 

ITEHMVESL 
reads ‘FROM* and writes ‘TO* sequen- 
tial or partitioned data set; reblocks 
type F records. 
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ITEHMVESM 
reads "FROM and writes 'TO"* sequen- 
tial or partitioned data set; reblocks 
type V records. 


IEHMVSRD (IEHMVERD) 
builds unloaded records. 


IEHMVSRM (IEHMVERD) 
writes unloaded records. 


IFHMVSRA (IEHMVERA) 
recreates unloaded record in original 
state. 


IEHMVSRK (IEHMVERA) 
reads unloaded records. 


IEHMVSTA (IEHMVETA) 
builds unloaded record and creates 
original record. 


IEHMVSRM (IEHMVETA) 
writes unloaded records. 


IEHMVSRK (IEHMVETA) 
reads unloaded records. 


IEHMVMTA (IEHMVETA) 
writes messages. 


IEHMVESR 
gets directory entries from SYSUT3 
work file. 


IEHMVETG 
gets directory entries from SYSUT1 of 
includes or selects. 


IEHMVESU 
writes messages. 


IEHMVESN 
closes "TC" and "FROM" data sets; 
determines next module. 


IEHMVMSN (IEHMVESN) 
writes messages. 


IEHMVESQ 
catalogs and uncatalogs moved data 
sets. 


IEHMVMSQ (IEHMVESQ) 
writes messages. 


IEHMVES P 
catalogs and uncatalogs copied data 
sets. 


IEHMVESO 
checks errors - job abort or request. 


IEHMVES K 
closes SYSIN; scratches and closes 
SYSUT1, SYSUT2, and SYSUT3. 
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IFBISAM 


IfFBISAM 
is the root segment; it sets up a com- 
mon work area, obtains input parame- 
ters, sets switches, and passes con- 
trol to the required module. 


IEBISC 
copies records of an indexed sequen- 
tial data set. 


IEBISU 
retrieves logical records sequentially 
from an indexed-sequential data set. 


IEBISSO (IEBISU) 
creates 80-byte logical records with 
fields as defined for ‘unloaded' data 
sets. 


TzBISL 
reconstructs indexed-sequential data 
set from ‘unloaded’ data. 


IEBISSI (IEBISL) 
retrieves logical records from an 
"unloaded" data set. 


IEBISPL 
prints logical records of an indexed 
sequential data set. 


IEBISF 
writes messages, prints error messages 
if applicable, and returns completion 
code to root segment. 


IEHPROGM 


IEHPROG1 (IEHPROGM) 
gets work area, reads SYSIN, mounts 
volumes if applicable. 


IEHPROG2 (IEHPROGM) 
issues SVCs for cataloging, uncatalog- 
ing, deleting, connecting, releasing, 
BLDA, DELET. 


IEHPROG3 (IEHPROGM) 
contains and writes messages. 


IEHPROG4 (IEHPROGM) 
opens input and output DCBs. 


IEFHPROG5S (IEHPROGM) 
prepares for the volume mounting 
module IEHMVSSF. 


IEHLIST 


IEHQSCAN (IEHLIST) 
reads control cards. 


IEHPRMSG (IEHLIST) 
message module. 


ed 


IEHPRINT (IEHLIST) 
scans and prints requested data from 
VTCCs, catalogs, and directories. 


LEBUPDAT 


IEBUFDAT 
updates 80-character logical record 
libraries. 


LEBUPDTE 


IEBUPDT2 (IEBUPDTE) 
creates partitioned or sequential data 
sets, sequences new data sets, rese- 
quences old data sets, replaces or 
reproduces data set members, or adds 
members to a partitioned data set. 


IEBUPLOG (IEBUPDTE) 
opens SYSPRINT and writes messages. 


IEBUPDTE 
reads control cards, and opens SYSUT1 
and SYSUT2. 


IEBASCAN (IEBUPDTE) 
scans and analyzes control statements 
and sets appropriate flags. 


IEBUPNIT (IEBUPDTE) 
initializes the region IEBUPCON and 
opens SYSIN data set. 


IEBUPXIT (IEBUPDTE) 
contains exit routines for the 
program. 


IBCDMPRS 


IBCDMPRS 
creates backup copies of direct access 
volumes. 


IBCRCVRP 


IBCRCVRP 
recovers usable data from a defective 
track, assigns an alternate track, and 
merges replacement data with the re- 
covered data onto the alternate track. 


Appendix A: 


IEBCDASDI 


IECDASDI 
initializes and assigns alternate 
tracks to a direct access volume. 


IFCEREPO 
modules for this utility program are 
summarized in Figure 25. 


IKBDG 


IEBDG 
is the control module that is the 
interface with a calling program. It 
opens the input, output, and message 
data sets, and it reads the program's 
control cards. 


IEBFDANL 
analyzes the keywords and parameters 
on an FD card and begins construction 
of an entry in the FD table. 


IEBFDIBL 
completes the construction of the FD 
entry that was begun by the FD analy- 
Sis module. It assigns FD card 
default values if necessary. 


IEBCRANL 
analyzes the keywords and parameters 
on a CREATE card and builds a create 
table entry, a picture table, an FD 
address table, and an exit name table. 


IEFBCREAT 
generates output records by using 
information from (1) input data sets, 
and (2) tables built by previous 
modules, as required. It permits user 
modifications before final record out- 
put. It releases storage obtained for 
information tables. 


IEBDGMSG 
is the message module, and it controls 
the paging on a message printer. 


IEBDGCUP 
is the clean-up module that closes 
DCBs and frees storage for DCEs and 
buffer pools. 
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Appendix B: User Label-Processing and Totaling 


With respect to the processing of user The following text discusses parameter 
labels and the totaling functions performed information passed from a utility program 
by user routines, Figure 68 shows the gen- to a user routine, and return code informa- 
eral logic of the following utility fro- tion passed from a user routine to a utili- 
grams: IEBCOMPR, IEBGENER, IEBPTPCH, and ty program. 

IEBUFDTE. : 
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Al A4 
Entry from No Complete the 
Supervisor Data Set 


Totaling 
Routine 


(See NOTE 
2.) 


Opening 


Yes (VIA DCBEXIST) 
Bs 


4 IECXXXXX IEBXXXXX (21) 
4 wits Check User's to Specific May be: 
R Ne Return Code Utility IEBCOMPR, 
ecord P TEBGENER, 
rogram JEBPTPCH, or 
TEBUPDTE. 


(See NOTE 3:) (See NOTE 4.) 


C3 C4 


Lavel 
Processing 
Requested 


Initialization. 


Continue 
Utility's 


Processing 


(See NOTE 1.) 


Program for: 


Termination 


Save Requested 


Data 


Input Trail Terminate Save Labels Utility 
IEBGENER | Input and Output Header. and Return insionage Pirate ot 

Input and Output Trailer, to Supervisor Data After 

Label Totaling. Label Grou 


Header ond Trailer Label 
Exits for SYSIN, SYSUT 1, 
and SYSUT 2. 

Totaling, for Data on 
SYSUT 2. (For Update = 
Inplace, No Output 
Trailer or Totaling Exits.) 


IEBUPDTE 


q Build DCB 

a Exit List 

J of User 
Routine 


Provided 


(+s) s 


F4 
Get | userexir || 


User Label- 


Storage for 
Labels and/ 


Processing 
or Totals. 


Routine 


GI (See NOTE 4.) 
Open One Entry to User Routine for Each Label Pro- 
Input aeeNOTE YT; Check User's cessed. 
Data Return Call Register Contents are as Follows: 


Set GRI: Parameter List (See Figure 69). 
GRI14: Return Address to Utility Program: 
(Must be Saved by User.) 


Entry Point Address for User Routine. 


© ames 


GRI5: 


H3 


Termination 
Requested 


Yes 
NOTES: 
1. For Closing the Data Set or 
ji End-of-Volume, a Sequence 
Terminate and Set Similar to that Beginning at 
Ret. to Caller Termination Box A4 and Ending at Box H1 
or Supervisor Indicator Occurs. 


2. GRI Points to Parameter List 

(Given in Figure 69). 
3. The Sequential Access Method 

Saves an Image of the Totaling 
Continue (45) Area for Use by End-of+Volume 
Utility's Processing Routines. 
Intended 4. See Text for Return Code Description. 
Function 


(2) 


Figure 68. General Logic of Utility Program With User Label-Processing Routine Exits 
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Parameter List 


When the utility gives control to a user's 
label-processing or totaling routine, gen- 
eral register 1 contains the address of a 
parameter list whose format is given in 


Figure 69. 
ue 1 byte. | 3 bytes red 
Address of 80-byte label buffer area’ 
Flag byte Address of DCB being processed 


” For totaling exits, Address of the output buffer 


Address of status information 


ren 


(for uncorrectable I/O errors) 
Address of totaling (image) area 


Farameter List Passed to User- 
Label Exit Routine 


*Figure 69. 


A description of the underlined fields 
indicated ky the parameter list in Figure 
69 is given below. 

e label kuffer area: prior to entering a 
label routine, user header or trailer 
labels are read into this area by the 
operating system. When a user's label 
routine constructs labels, the labels 
are placed (one at a time) in this 
area. 

e status information address: if an 
uncorrectable I/O error occurs during 
the reading or writing of a user label, 
the utility routine gives control to a 
user label routine with bit 0 of the 
high-order (error flags) byte of this 
field is set to 1. If the totaling 
facility has been specified and an 
uncorrectable I/O error occurs as the 
utility is placing data on an output 
data set, a user"s totaling routine is 
given control with bit 0 of the high- 
order (error flags) byte set to 1. The 
three low-order bytes of this field 
contain the address of the standard 
status information for SYNAD routines. 
(See the publication IBM System/360 


Cperating System: Supervisor and Data 
Management Services, Form C28-6646.) 


e totaling image area: for a totaling 
routine, a user may require an area to 
contain record counters, totals, point- 
ers, etc. A utility supporting the to- 
taling facility obtains this area and 
places its address in a DCB exit list 
(for use by data management routines 
such as the open routine and the end- 
of-volume routine) and in this field of 
the parameter list (for use by the to- 
taling routine). The information that 
the user saves in this area is synch- 
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ronized with the physical records writ- 
ten prior to placing a given record on 
an output data set. In an end-of- 
volume situation, the updated totaling 
information is kept as an "image" whose 
address (in the parameter list) is 
given to a user label routine. This 
insures an accurate transfer of total- 
ing information from one volume to 
another. The image area has meaning 
only for output data sets and when the 
user and the utility have called for 
the totaling facility via an entry in 
the DCB exit list. 


Note: At volume switch time, the utility 
routines use the information contained in 
the flag byte of the second word to indi- 
cate end of volume or end of data. 


PARAMETER LIST MODIFICATION 


For IEBUPDTE, the following modifica- 
tions are made to the parameter list: 

e When there are user label-processing 
routines, the first meaningful field of 
the parameter list passed to the user 
output-label routine points to the 
label buffer. This buffer, which con- 
tains a label data record from the 
SYSIN data set, is for the user to 
inspect before the record is written as 
a label. 

e If the error status information in the 
parameter list is established as a 
result of a reading error, the user 
routine must return one of the return 
codes (described in the next section) 
or the program will be terminated. 

e If the error status information is 
established as a result of a recording 
error, bit 1 (of the error-flags byte) 
is set to 1 to indicate that the error 
occurred during an output operation. 

In this case, the user routine must 
return a code of either 0 or 4, or the 
program will be terminated. 

e For header labels only, a fifth entry 
in the parameter list occurs under the 
conditions given below. The first byte 
of this entry is meaningless, and the 
last three bytes contain the address of 
the label that has been replaced from 
the old master data set (SYSUT1). The 
conditions (all of which must be pre- 
sent) for the occurrence of the entry 
are: 

1. An update of the old master is 
specified via the keyword 
UPDATE=INPLACE. 

2- A LABEL statement must be speci- 
fied for header labels in the 
input data set. 

3. A user label-routine corresponding 
to the LABEL statement is speci- 
fied and user labels are encoun- 
tered on SYSUT1. 


Return Codes 


&Y One of the following return codes must be placed in general register 15 when a user 
(label-processing) exit routine gives control back to the utility program. An incorrect 
(or no) code results in termination of the program. 


Type of Routine Code System (Utility) Response 


Input header or 0 Resume normal processing. Ignore additional labels in the label 
input trailer group. 
lakel 

4 Read next user label into buffer area. Return control to user- 


exit routine. Resume normal processing if no more labels. 


16 Request termination of label processing. Utility program per- 
forms clean-up functions and terminates. 
Output header or 0 Resume normal processing. No label is written from buffer area. 
output trailer 
label 

4 Write label from buffer area. Resume normal processing. 

8 Write label from buffer area. If less than eight labels 
created, return to exit routine. Otherwise, resume nornal 
processing. 

16 Request termination of label processing. Utility program per- 


forms clean-up functions and terminates. 


RETURN CODE MCDIFICATIONS 


1. For IEBUPDTE, the following modifications are made to the return codes when the key- 
word UPDATE=INPLACE is specified. 


Type of Routine Code System (Utility) Response 
Input header 0 Same as above. 
4 Same as above. 


foe) 


Write label from buffer area. Resume normal processing. 


12 Write label from buffer area. Read next label into buffer 
area. Return control to user exit routine. Resume norwal 
processing if no more labels. 


16 Request termination of label processing. Utility program 
performs clean-up functions and terminates. 
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2. For IEBCOMPR, the following modifications are made to the return codes, depending|on 
the operand in the LABELS statement: (See Figure 70) 


Type of Routine User Return Code LABELS Statement System (Utility) Response 
Input header or 16 DATA = ALL Return a code of 4 to 
trailer Labels Open routine. Take no 
additional label exits. 
16 DATA # ALL Return a code of 0 to Cpen 
routine. 
Ignore rest of labels. 
O* DATA ALL Same as for code 16. 
0* DATA # ALL Same as for code 16. 


*After SYSUT1 and SYSUT2 have been opened, the following conditions are tested and the 
response indicated is taken. 


0, with DATA = ALL Compare the labels, 
a previous then terminate the 
code of 16 processing. 
DATA # ALL Terminate the processing. 
0, with Compare available 
no previous labels. Then check 
code of 16 LABELS statement 
operand as follows: 
DATA = ONLY Terminate the processi Ty: 
DATA # ONLY Compare the data of the 


appropriate data sets. 


3. For totaling exits, valid only for IEBUPDIF and IEBGENER programs, the normal return 
codes will be processed with the following modifications: 


Code Utility Response 
0 No more exits will be taken. Normal processing 
is resumed. 
4 Continue processing with totaling exits. 
8 No more data processing or totaling exits. Data 


sets will ke closed and the requested output 
trailer lakel exits (if any) are taken. 

16 Program terminates all totaling and data proces- 
sing, and returns control to the supervisor. 


Invalid Codes 
under 16 Same as for code 0. 
over 16 Same as for code 16. 
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B4 


Code : Use General 
= or Return Code 


Set Flag 
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D2 ; D4 D5 
Pass a Return 


Pass a Return 


Code of 0 Back DATA=ALL Code of 4 Back Read Rest 
to Open Parameter to Open of Labels 
Routine Routine 


Complete Take No 
Data Set More Label 
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F3 F4 


G4 


there been a Yes DATA=ALL Compare 
Previous Code g Statment Labels 
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No 
H5 
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J3 
; DATA=ALL N Compare Continue 
Cee) Statement 7 Data of the Processing 
two Data Sets 


Figure 70. Return Code Modification for IEBCOMPR Program 
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Appendix C: DSCB Formats for the IEHLIST Program 


Refers to Format 1 DSCB abbreviations for option code, record format, and organization given below:, 


Name of Format | Printout Abbreviation Appearing Meaning of 
DSCB Printout Field Position on Printout Abbreviation 
Initial Allocation Initial Allocation (on Direct Access) 


The format of the DSCB"s as printed by the IEHLIST utility program are given in Figure 
71. ABSTR Absolute track address 


TRKS Tracks 
CYLS Cylinders 
RECS Records 


ROUND Request (in records) was rounded up to a cylinder 
boundary. 


Note: Non-significant high-order (leading) zeros are not printed. 
Print Position 1 1 1 
1 2 3 4 5 6 7 8° 9 0 1 2 
12345678901234567890123456 7890123456 7890123456 78901234567890123456 789012345678901234567890123456789012345678901234567890 


Format 4 DSCB  .xxxxx XXX XXX XXXXX ecc hhh ecec hhh rrr cee hhh rrr ccc hhh cece hhh. cee hhh rrr 


No. of Max. No. Max. No. of No. of Address of | Address of a Address of last vTOCc VTOC Address of 
available of DSCBs PDS directory alternate nextavail- Format 6 DSCB, active Format 1 begin end this DSCB 
DSCBs in per track blocks per tracks able alter- if applicable DSCB address — address 

VTOC track available nate track 


CONTIG Contiguous extent requested 
MXIG Maximum contiguous extent requested 


Five (or fess) of the largest extents (each equal to or 
greater than the specified minimum) was requested. 


Format 5 DSCB ‘A' represents the number of full tracks in addition to the number of full cylinders available at the extent's location. Data Set Organization 


XXXX XXX XXX / XXXX XXX XXX / XXXX XXX XXX / ... etc. Physical Sequential 


Indexed Sequential 
[For each extent (separated by /), the value xxxx is the starting track address, relative to the beginning of the extent. The first xxx group in each case q 


is the number of full cylinders available at the extent's location. The second xxx group in each case is the 'A' value. ] Direct Access 


DSCB ADDR ccc hhh rrr Partitioned Organization 


Undefined Organization 


Format 6 DSCB Has same format as for a Format 5 DSCB, but the value of ‘A' now represents the number of data sets sharing the extent. 
Unmovable Data Set. 


(Format 1 DSCB) Record Format 


Undefined 
Variable 


Fixed 


l syyyyyy XXXX dddyy dddyy XX aaa aaaaaa aaa XX XXX 


Format | Volume Volume Data Set Data Set No. of Organ- Record Option Data Set 
Identifier Serial Sequence Creation Purge extents ization Format Code  Blocksize 
Number Number Date Date for this (DSORG) (RECFM) (OPTCD) 

data set 


Invalid format 


Blocked 


Track Overflow 


If RECFM is F: Standard Blocks (no truncated blocks or 
unfilled tracks are embedded in the data set) 


If RECFMis V: Spanned Records 
ASA Control Record 


XXXXX XXX aaaaa aaaaa XXXXX ttttt rrr llill XXX cece hhh rrr ecc hhh rrr 


Logical Key Initial Secondary Address of last No. of bytes Address of Address of 
Record —_ Length Allocation Allocation block in data set in last PDS next DSCB this DSCB 
Length directory block 


xX ccc hhh cece hnn «ee etc. 


[For each of the first three extents (of which only the first is shown here) of the data set, xx is the extent number, the first ccc hhh is the lower 
(address) limit of the extent, and the second ccc hhh is the upper (address) limit of the extent. ] 


Machine control character 


Option Code 


(Format 3 DSCB) Write validity check 


XX ccc hhh ccc hhh / xx ccc hhh ccc hhh / ... etc. Allow data check for an invalid character on 1403 


Chained scheduling using Program Controlled Interruption 


[For each extent (separated above by/), the value xx is the number of the extent (from 4-16), the first cce hhh is the lower limit of the extent, and Cl) 


the second ccc hhh is the upper limit of the same extent. | 
1 


cece hhh rrr cylinder, track, and record number. 
(Format 2 DSCB) dddyy day and year (digits from 00000 to 36699) 

mmm b device identification 

nnnn... DSNAME for Format 1 DSCB 

ttttt rrr 11111 digits from 00000 000 00000 to 99999 999 99999. 

XX... digits from 00...0 to 99...9 

digits from 000000 to 999999 {except for Volume Serial Number in Format 1 DSCB), 


mmm b cce hhh, mmm b ccc hhh, cce hhh rrr, .ccc hhh rrr, mmm b ccc hhh, mmm b ccc hhh, .mmm b ccc hhh, xxxxx XXX 


Address of the first Address of the first Identification of Identification of | Address of Address of Address of No. of bytes Size 

track of the second track of the third —_ last active entry last active entry _ first track of first track of first track of of main stor- (in tracks) 

level master index level master index on second level on third level cylinder index lowest level highest level age required of highest 
master index master index master index master index for highest level 


level index index YYYYYY 


eae Bh eee eee HO ee’ CEO RE ee a eee Jae i Gare Sees a tee tiie ak aihees 'For the 2321 data cell, the ccc hhh part of the identification follows the interpretation given below for addressing: 

Digits 

Identification of Identification Identification of Address of last record No. of No. of No. of No, of No. of No. of 

last normal entry of last entry in last index entry in the prime data area index cylinder records records in records in full 182 Subcell value from 0-19 

in track index cylinder index in master index levels overflow tagged the prime overflow cylinder 

on last cylinder tracks for data area = area overflow 
on each dele- areas 


cylinder tion 


Strip value from 0-9 


Cylinder value from 0-4 


Track value from 0-19 


eFigure 71. Description of Fields in Data Set Control Block Formats 1-6 or Print-out by 
IEHLIST Program 
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Catalog 
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Close 
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Index 
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IBCMPRS .cccccccccccccscecsesee 206-210 ,223 
TECRCVRP cccaccscccncnccccssece 211-218 ,223 
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FD table 
CONStTuction ...-cceccecceeee 162-165 
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processing control cards 
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DSD. seeds si t5. G5 SSS Re wae oS ease ees: 160 
DUMP S-cessskeseeeuns wweesneee 160,173 
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